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CALCULATION OF THE LONGITUDINAL AERODYNAMIC 


CHARACTERISTICS OF STOL AIRCRAFT WITH 

EXTERNALLY-BLOWN JET-AUGMENTED FLAPS ^ , 

By Marnix F. E. Dillenius, Michael R. . : 

Mendenhall, and S. B. Spangler 

Nielsen Engineering & Research; Inc. 

SUMMARY 

A theoretical investigation was made to develop methods for predicting 
the lift and pitching moment characteristics of externally-blown, jet- 
augmented wing-flap combinations. A potential flow analysis was used to 
develop two models: a wing-flap lifting surface model and a high-bypass- 

ratio turbofan engine wake model. The wing-flap model uses a vortex- 
lattice approach to represent a wing of arbitrary planform, camber, and 
twist, and a multiply-slotted flap which can be large and highly deflected. 
In order to handle the large angles that appear in the f low-tangency 
condition applied to the surfaces, trigonometric functions' are used 
instead of the usual linearizations . The horseshoe vortices on the flap 
are laid out on a surface inclined to the wing at the average flap angle, . 
with the, trailing vortex legs lying on an extension of this flap surface. 
The engine wake model consists of a series of closely spaced vortex rings 
normal to a wake centerline which is permitted to have vertical and 
lateral curvature to accommodate the local perturbed flow under the wing. 
The ring diameters and strengths are determined from the engine thrust 
such that the resulting potential flow "wake" has essentially the same 
mass, momentum and spreading rate as the appropriate turbulent, coflowing 
wake. Use of these two models in sequence provides for calculation of 
the wing-flap load distribution including the influence of the engine 
wake. The method can accommodate multiple engines per wing panel and 
part-span flaps but is limited to the case where the flow and geometry of 
the configuration are symmetric about a vertical plane containing the 
wing root chord. 

Comparisons of predicted and measured lift and pitching moment on 
unswept and swept wings with one and two engines per panel and with flaps 
having a combined chord as large as the basic wing chord indicate 



satisfactory prediction of lift and moment for flap deflections up to 
30 to 40 degrees. At higher flap angles with and without power, the 
method begins to overpredict lift, due probably to the appearance of 
flow separation on the flaps. The agreement on moments is least' satis- 
factory for swept wings, probably as a result of the particular vortex- 
lattice layout used in the calculations. 

INTRODUCTION 


' The development of high-bypass-ratio turbofan engines with their 
relatively cool exhaust has generated great interest in the use of 
external-flow jet-augmented flaps as a means of achieving high lift 
coefficients for STOL operation. In this concept, the jet efflux from 
pod-mounted engines is made to impinge on a large, highly deflected, . 
multiply slotted flap system which induces a large amount of additional 
lift through engine wake deflection. A number of experimental investi- 
gations have. confirmed the capability of the externally-blown jet-augmented 
flap to produce high lift coefficients (refs. 1-4)'. 

Most of the work that has been published on externally-blown jet- 
augmented- flaps has been experimental in nature. In addition to the 
work on complete configurations such as that of references 1-4, experi- 
mental work has also been done on a semispan wing-flap-engine model 
(ref. 5). A wide range of configuration variables have been tested, 
including swept and unswept wings, partial and full span flaps, various 
numbers of flap segments, and variations in engine position and incidence 
relative to the wing. The results of this work are available in the 
form of overall lift and pitching moment over a range of flap angles and 
thrust coefficients. 

Early analysis of the behavior of a wing with externally-blown jet- 
augm.ented flaps considered the lift to be made up of the lift of the 
wing-flap alone, the lift due to the vertical component of jet momentum, 
and a circulation lift induced by the jet-flap interaction (ref. 1). While 
theoretical values of the first two could be obtained, no method was 
developed to estimate the last. Recently, jet flap theory developed for 
the jet flap and augmentor wings was applied to a jet-augmented flap 
(ref. 6). Although good agreement was indicated, empirically determined 
momentum coefficients, jet turning angles, and jet spreading factors were 
2 ' ' 


used. Thus, no rational, analytical method existed for predicting the 
performance of an arbitrary jet-augmented flap and wing combination. 


The objective of the present work is to develop an engineering 
method for predicting the characteristics of such a configuration. A 
potential flow approach was adopted involving the combination of two flow 
models: a wing-flap lifting surface model and a jet wake model. Because 

of the size and large deflection angles of flaps required for STOL perfor- 
mance, a nonplanar, nonlinear lifting surface method is required for the 
wing-flap model. A vortex-lattice approach was selected. The jet 
wake model required a potential flow approximation to a turbulent, 
coflowing jet. The jet characteristics used were those of Abramovich 
(ref. 7). The potential flow approximation was derived from the basic 
ring vortex model of reference 8. These models must be combined in 
such a fashion that all the boundary conditions are satisfied. An 
iterative approach was selected. The development of the models, cqm- 
parisons of predicted results with data, and a user's description of the 
resulting computer programs are presented in this report. The computer 
source programs are available from COSMIC. 
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SYMBOLS . 

fan exit flow area 

jet-wake crpss sectional area at beginning of the 
wake 

wing span 

chord of area 'element on the wing; or basic wing root- chord 

average wing chord, Sj^p/b, used as reference length 
by wing-flap program 

section ‘lift coefficient, based on local chord 

t . . 

design section lift coefficient 

T - * 

induced drag, coefficient, -F /qS„„„ 

S Kijr 

lift coef f ic\"ent , L/qSj^j,p 
thrust coefficient’, T/qS_„„ 
pitching moment coefficient, ^/'JSpppC^^^ 
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E 


complete elliptic integral of second kind 

^u'^v'^w backwash, sidewash, and downwash influence coefficient 

for a horseshoe vortex on the wing 

F- „»F_ ^»F, backwash, sidewash, and downwash influence coefficient 

' ' ' for horseshoe vortex on the flap 


F 


s 


streamwisfe force 
. -'J ! 


k argument of elliptic integral 

K complete elliptic integral pf first kind 

ii lift force 

‘‘ length of initial region ' in jet-wake 


M pitching moment; or momentum in jet; or number of 

vortices or control points on wing 

MF number of- vortices or control, points on flap 

m mass flow in jet 

q free' stream dynamic pressure, ^ Pco^^ 

R radius of jet-wake 

radius of jet-wake at beginning of jet wake 

r • ..radial distance given .by ."Vn? •+■ C ^ for the jet 

s horseshoe vortex semi-width. measured in chordal plane; 

;; or distance along jet wake centerline 

wing planform area used as reference area by wing-flap 

KhiT 

program 

T engine thrust . .•.yU-L.. \ 

u,v,w perturbation velocities in.-' x, y and z directions, 

respe.ctively , induced by horseshoe vortices on the 
. .. .i.. wing 

U£,v^,w^ perturbation velocities in x^, y^ and z^ directions, 

.respectively, induced byi horseshoe vortices on the 
flap .■ -y rsf 

u^,v. ,W£;-, -I perturbation velocities in')i:x., . y and z directions, 

; respectively, induced on;;.wing-f lap by other airframe 

components 

‘ ■ ■' cr 

Up - c, . axial velocity induced byi_-a tslngle vortex ring 
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radial velocity induced by a singlle vortex ring 

jet velocity directed along the geometric engine 
centerline at beginning of wake (includes free 
stream velocity) ' ' > 

average jet velocity at a station along the jet t 

(includes free stream velocity) 

fan exit velocity ■ ■ 

perturbation velocity along ' y ' direction at the 
bound leg midpoint of a horseshoe vortex on the wing 

perturbation velocity along y direction at the ) 

3/4 chord of the left side of an area element on the 
wing 

free stream velocity 

coordinates with origin located at the midspan of a 
horseshoe vortex on the wing and with same directions 
as X, Y, Z coordinate system/ figure 2; or jet wake 
coordinate system fixed at beginning of jet, fi.gure 9(a) 

coordinates with origin located at the midspan of a 
horseshoe vortex on the flap, y^ direction same as 
y and Y directions. Directions of x^^ and rotated 

from X and z through angle (positive down) , 

figure 2 

coordinates with origin located at the wing root chord 
nose, figure 2. X axis coincident with wing root 
chord, Z axis positive in downward direction 

angle of attack of wing root chord with respect to 
free stream, degrees 

angle between tangent to mean camber surface of the 
wing and X direction, degrees 

vortex strength of a horseshoe vortex 

vortex strength of vortex rings used to model expanding 
jet wake 

vortex strength of vortex cylinder used to model 
straight jet wake 

flap deflection angle measured perpendicular to the 
hingeline ,'i.ipositive downward, degrees 

streamwise flap deflection angle measured in a plane 
parallel to the X-Z plane, ■ positive downwards, degrees 
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'^f 


angle between tangent to mean camber surface of the 
flap and the Xf direction, degrees 

angle whose tangent equals the slope of the jet-wake 
centerline in the X-Y plane, degrees 

angle whose tangent equals the slope of the jet-wake 
centerline in the X-Z plane, degrees 

non-dimensional spanwise coordinate, Y/(b/2) 

angle of inclination of jet wake centerline, relative 
to X-direction, degrees ’ 

vortex ring rectangular coordinate system with 
origin located at the center of the vortex ring, 
q . figure 9(b) 

free stream density 

_ul ■ 

dihedral of wing, degrees 

dihedral of flap calculated by wing flap program, 
degrees 

sv/eep angle of the bound leg of a wing horseshoe vortex 
(positive for swept back vortices) , degrees 


sweep angle of the bound leg of a horseshoe vortex on 
the deflected flap calculated by wing flap program 
from undeflected flap sweep, degrees 


sweep angles measured in the plane of the wing planform, 
degrees 
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Subscripts 

flap 

left; or local 
initial 
field point 

center of engine inlet 
right 

center of vortex ring 
wing 

leading edge 
trailing edge 



THEORETICAL ANALYSIS 
Wing-Flap Model 

In order to appraise aerodynamic interaction effects between a jet- 
wake and a wing-flap configuration, a method is required to determine 
aerodynamic loadings on the wing flap surf aces. Furthermore, the method 
must be able to predict wing-flap induced perturbation velocities at field 
points in the vicinity of the configuration. For these purposes, a three- 
dimensional horseshoe vortex lattice is used as the distribution of 
singularities representing the lifting surfaces. The flow tangency boundary 
condition, including all wing-flap interference effects, is applied at a 
finite number of control points on the wing-flap surfaces, which results 
in a set of simultaneous equations from whi.ch the vortex strengths are 
determined. Wing angle of attack and flap deflection angles are accounted 
for in terms of trigonometric functions instead of linear terms because 
the magnitudes of the angles can be large. The jet-wake is considered 
an external source of perturbation velocities which are included in the 
wing-flap flow tangency condition as part of the jet wing-flap aerodynamic 
interference calculation. 

The method is developed for flow in the pitch plane; yaw effects 
are not included. Since large flap deflections are used only at low 
speeds, compressibility effects are not included.' Finally, since potential' 
flow theory is used, the methods cannot account for flow separation or 
other viscous effects. 

Configuration characteristics .- The configuration of interest is a 
wing with large, deflected flaps attached to the trailing edges of the 
wing -panel. The various configuration parameters included in the method 
are listed below. 

Wing Panels : 

Mean cam>ber surface; May have both twist -and camber 

Leading-edge shape: Straight line which may be swept 

Traiiing-edge shape: Same as for leading edge 

Taper: Linear 

Tips: Parallel to wing root chord 

Dihedral: Arbitrary but constant over the semispan 

Thickness: Assumed small (thickness effects neglected) 
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Flaps : 


Type: Single surface. Multiple flaps are idealized as a single 
flap with camber to account for the effects of individual flap components. 

Location: At or near wing trailing edge with the flap leading edge 

situated in or off the plane of the wing. (In actuality, the flap can 
be located anywhere provided certain precautions . are followed in the lay- 
out of the wing vortex-lattice and the flap control points.) 

Mean camber surface: May have camber. Also see remarks regarding 

flap type. 

Span: Full or partial span. 

Leading-^edge shape: Straight line which may be swept. 

Trailing-edge shape: Same as for leading edge. 

Taper: Linear 

Thickness: Assumed small (thickness effects neglected). 

Description of the method .- The three-dimensional horseshoe vortex 
lattice that is used to represent the wing-flap lifting surfaces is an 
extension of the vortex-lattice methods and programs developed in 
references 8, 9, and 10. Specifically, the approach described in ref- 
erence 8 has been extensively modified to treat a wing-flap system with 
mutual interference between the wing and flap. 

The vortex-lattice arrangement and the coordinate system for a swept 
wing with trailing edge flaps deflected are shown in figures 1 and 2. 

The wing panel and flap are divided into trapezoidal area elements. 

A horseshoe vortex is placed in each area element such that the span- 
wise bound leg lies along the element quarter chord and its trailing 
legs along the chordwise sides of the element. The trailing legs are 
assumed to lie in the plane of the area element. The wing vortex trailing 
legs consequently extend back- to infinity in the plane of the wing. The 
flap vortex trailing legs extend downwards to infinity in the plane of 
the flap. Both wing and flap vortex trailing legs lie in planes parallel 
to the X-Z plane. .The angle subtended by the two trailing leg directions 
equals the streamwise ' f lap angle, actual flap 6^ 

is understood to be measured perpendicular to the hingeline. 

On the wing, the area elements have a uniform chordwise length at any 
spanwise station; in the spanwise direction the area element widths need not 
be equal to allow for closer spacing where large spanwise loading gradients 
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exist. The flap area elements are arranged likewise although the chord- 
wise and spanwise dimensions need not be the same as those used for the 
wing area elements. 

The flow tangency boundary condition is applied at a finite set of 

control points given by the midpoint of the 3/4 chord of each area element 

located in the chordal planes of the wing and the flap. The wing 

chordal plane is the plane containing the wing root chord and making angle 

(t> with the Z = 0 plane, see figure 2. The flap chordal plane is the 

plane containing the flap leading- and trailing-edges and the flap root 

and tip chords. The boundary condition states that there is no flow 

through the wing and flap surfaces at each control point. ' The condition 

is illustrated in figure 3 for the wing. The velocities normal to the 

' 1 . 

•wing consist of a component of the free stream, perturbation velocities 
u, V and w induced by the wing-flap horseshoe system, and externally 
induced perturbation velocities u^, v^ and w^^. The latter velocities may 
be generated by a turbofan wake as described in a later section. The 
velocities normal to the flap are categorized in the same manner. 


With M control points on the wing and MF on the flap, the boundary 
condition for the left wing panel is formulated as follows. 



With the flap deflected downwards, the flap boundary condition is written 
for MF points as 
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V = M + 1, . . .M + MF (2) 


The wing angle of . attack , a, the streamwise flap angle 6^2 (positive 
downwards) and the local flap angle 6 ^^ due to flap camber are accounted 
for in a nonlinear manner; for example, sin a instead of a. This 
allows the method to be used with large magnitudes for these angles. 

The validity of the wing-flap loading results at high angles will, however, 
be limited by viscous effects such as flow separation on the flap not 
accounted for in .the present theory. Local wing angles due to wing 

camber and twist are assumed ■ to have small magnitudes. 

The right-hand sides of equations (1) and (2) represent the free- 
stream component and the externally induced perturbation velocities normal 
to the wing and flap chordal planes. The first summation on the left- 
hand sides of the equations represents the perturbation velocities induced 
by the left and right wing surfaces. The second summation represents the 
perturbation velocities induced by the left and right flap surfaces. The 
functions inside the summations will be discussed next. 

The functions F ,F ,F and F_ „ are influence 

functions relating the perturbation velocity components induced at some 
point by a wing and flap horseshoe vortex, respectively, to the circu- 
lation strength and the coordinates of the point relative to the origin 
of the vortex coordinate system (x,y,z) . This relationship is obtained 

10 ■ ■ 



from the Biot-Savart law, (ref. 11). The origin of the vortex coordinate 
system is located at the bound, leg midpoint and its directions are aligned 
with the wing root chord coordinate system (X,Y,Z), (fig. 2). The effect 
of vortices laid out on the left and the right wing and flap panels. must 
be included in the influence functions shown in equations (1) and (2) . 

The functions F^, and F^ for the left wing panel are described com- 
pletely in Appendix A of reference 8 and are repeated below together with 

^ t 

other necessary relations. The same functions are used in connection 
with the flap vortices as described later. The bound leg sweep angle 



in the wing planform by the dihedral angle (j) : 


tan \I) = tan il> cos 

Tp 


The backwash influence coefficient is 


(3) 


F^(x,y,z,s,i|j,(f)) 


(2 COS (() y sin (j)) cos ip 


^x cos - (y cos <t> + 2 sin (()) sin + (z cos <t> - y sin c|)) ^ 

/^(x + s tan ij^) sin i|; + (y + s cos 4i) cos cos c]) + (z + s sin (j)) cos ip sin (ji 


L |^(x + s tan 4>) ^ + (y + s cos 4>) ^ + (z + s sin 

(x - s tan i|;)sin i(; + (y-s cos (|) ) cos ip cos (j> + (z - s sin (j))cos i|; sin 
j^(x - s tan Ip) ^ + (y - s cos <j>)^ + (z - s sin ij)) 


j 


(4) 


; » / C I 
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The sidewash influence coefficient is 
F^(x,y,z,s,i|j,(j)) 


' - 2 sin i|; + X cos ip sin (j) 

cos Ip - (y cos <p + z.' ain (fi) sin ipj^ + (z cos 4> - y sin (|)) ^ 

, J (x + s tan )}i) sin i|; + (y + s cos <(i)cos ij; cos i)> + (z -t- s sin il))cos i); sin 

(x + s tan i|)) ^,'i+ (y + s cos <j>) ^ V (z + s sin 4>) 


(x - s tan"rtij)),sin i|; + (y - s cos 4 >)cos \p cos..(j) + (z - s sin j))cos ij; sin 


[<. 


s tan ip) ^ + (y - s cos 4>) ^ + (z - s sin c{i) 


’ (z - s sin i{>) . 

(y - s cos ())) ^ + (z - s sin (Ji)^ 


^ f I ^ (x - s tan 

j^(x - s tan tfj) ^ + (y - s cos (|)) ^ + (z 




(z + s sin (|)) 

(y -t s cos,-(())^ + (z + s sin ([)) 


^ _ (x + s tan <tj) 

^(x + s tan ip).^ + (y + s cos (p) ^ + (z + s sin ())) ^ 


The -downwash influence coefficient is 


F„{x,y,z,s.,ii;,(j)) 


-X cos 4 > cos 4 > + y sin 


)os Ip - ,(y cos (p + z sin 41) sin + (z- cos 4 > “ y sin 4 >) ^ 

x+s tan sin ij; + (y + s cos 4>)cos i); cos.-(]) + (z + s sin 4) cos sin 


^(x + s tan ip) ^ + (y + s cos (Ji,) (z + s sin <|)) ^] ^ 

(x s tan Ip) sin ip + (y - s cos 4) cos ip cos 4 : + (z - s sin 4 >) cos ip sin 4 ) 
^(x - s tan 4^)^ + (y - s cos 4>) ^ + ("z - s sin 

(Continued on next page) 
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(y - s cos (}i) 

(y - s cos ()))^ + (z - s sin 4))^ 

<x - s tan i|;) 

(x - s tan 4)) ^ + (y - s cos (J)) ^ + (z - s sin 4>) 

(y + s cos 4i) 

(y + s cos (j)) ^ + (z + s sin ^ . 

(x + s tan ij;) ^ - 

^(x + s tan ip) ^' + (y + s cos i})) * + (z + s sin (fi) ^ 

( 6 ) 

The contribution from a vortex situated in the right panel is obtained by 
changing the signs on the vortex bound leg sweep angle rp and the di- 
hedral 4)« In addition, the term y^ stands for the coordinate in the 
y direction of the- point relative to a yortex on the right wing panel. 
Summing up the contributions from left and right wing panels results in: 

Fu = F^(x,yj^,z,s,i|>,(|)) + F^(x,y^,z,s,-i|^,-(fi) - (7) 

The same expressions hold for F and F . These functions are substituted • 

V w 

in the wing induced effects indicated by the first summations on the- left- 
hand side of equations (1) and (-2) . . 

Flap induced effects are obtained in the following manner. First, 
the wing vortex coordinate system (x,y,z) is rotated about the y-axis 
through angle which is the streamwise flap angle (positive downwards) . 

This transformation relocates the vortex coordinate system such that the 
transformed x-axis lies in the plane of the flap. The transformed y- 
axis is parallel to the wing vortex y-axis and the transformed z-axis 
is perpendicular to the transformed x and y axis. Thus the flap 
vortices bear the same relationship to the transformed or flap vortex 
coordinate system (x^,y^,z^) as the wing vortices to the wing vortex 
coordinates (x,y,z). Flap vortex bound leg sweeps, ip^, are calculated 
by the program in the chordal plane of the deflected flap.' The dihedral 
angle, associated with the deflected flap is the angle the flap 

chordal plane makes with the transformed or flap 'Yf plane and'^ is 
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also computed by the program. It is to be observed that the flap vortex 
y^-axis is parallel to the wing vortex y-axis as well as the Y-axis of 
the wing root chord coordinate system. 


The coordinates of a point relative to a horseshoe vortex on the 
flap are specified in the same way as the coordinates (x,y,z) of a point 
relative to a wing horseshoe vortex. Then, to compute perturbation 
velocities induced by the flap horseshoe vortex, the following transfor- 
mations are performed. 


Xf =.x cos 6^2 




Vf - 
r 


2 Sin 6^2 ^ 



(8) 


= X sin + z cos J 


Substituting x^,yj, 2 ^ and angles and in equations (4) through 

(7) allows for the determination of influence functions E, ,F, „,F, w 
The flap-vortex-induced perturbation velocity components associated with 
these functions are consequently aligned with the flap vortex coordinate 
system (x^,y^,z^). These velocities must therefore be transformed back 
in the wing coordinate system for inclusion in the boundary conditions 
expressed by equations (1) and (2) . The result is a set of M + MF 
simultaneous equations in which the unknowns are the M + MF values of 
circulation strengths, F. The values can therefore be obtained from a 
matrix solution for a given wing angle of attack, a, flap angle 6^ and 
a specified set of perturbation velocities u^,v^,w^ induced by an 
external source such as the turbofan wake. 


Once the circulation values have been calculated, the load distri- 
bution on the wing and flap can be obtained by means of the Kutta-Jbukowski 
law for aerodynamic force on a vortex filament. The force per unit length 
on the vortex filament is obtained as the product of density, velocity • 
and circulation strength. The line of action is perpendicular to the 
velocity vector and the vortex line. For a given area element on the 
left wing panel, the lift and streamwise force. components are calculated 
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as the Slim, -of two contributions: lift and streamwise force acting on the 

bound leg .plus lift, and streamwise force acting on that part of the trailing 
legs within the area element. The forces on the bound leg are obtained by , 
first computing the perturbation velocity and free-stream components in the 
wing coordinate system (X,Y,Z) at the bound-leg midpoint and applying the 
Kutta-Joukowski law to each velocity component. The force components are 
then resolved into the lift direction, and the streamwise direction. The 
forces on the vortex trailing legs are computed at the 3/4 chord of the left 
side of an area element. According to the Kutta-Joukowski law, the product 
of the net circulation AT of the coincident legs along the chordwise sides 
of the area elements, the sidewash at the element 3/4 chord and the density 
equals the aerodynamic force per unit length on the vortex trailing legs. 

The line of action of this force is perpendicular to the plane formed by 
the sidewash vector (parallel to Y-axis) and the vortex trailing legs 
(parallel to X-axis) . This force is then resolved into the lift and 
streamwise directions. The expression for lift, made non-dimensional by the 
dynamic head and reference area, acting on an area element of the left wing 
panel is specified as 
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The non-dimensional streamvjise force acting on a left wing area element 
is given by 
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Backwash u, sidewash vj and downwash w are calculated at the mid- 
point of the vortex bound leg swept at angle ip. Sidewash is 

computed at the 3/4 point of the left side of the element with chord, c. 
The perturbation velocities U/V^/Vj/W include flap and wing vorticity 
effects. Engine jet-wake induced perturbation velocities are also, inclu- 
ded when determining wake-wing-flap interference. 

Aerodynamic forces on the flap are determined in a manner similar 
to the procedure described above. However, forces due to sidewash have 
not been included in accordance with the following considerations. The 
trailing legs of the wing vortices aft of the hinge line should lie in 
or close to the flap plane rather than the wing plane. Were they to 
lie in the flap plane, they would induce no sidewash in the flap plane. 

An an approximation to this condition, the sidewash induced forces have 
not been included. With this assumption, the expression for lift made 
nondimens ional by the dynamic head and reference area and acting on an 
area element of the left flap is written as: 





cos 'I’f " — cos sin (a + 

( 11 ) 
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The specification of the non-dimensional streamwise force acting on a 
left flap area element is 

Uf w^ 

cos (f)^ sin (a + 6^^^) “ — cos cos (a + 6^^^) 

(positive forwards) 

( 12 ) 

The perturbation velocities u^,Wj are computed in the flap or 
(Xf,yf,Zf) coordinate system and include contributions from the wing 
vorticity as well as the flap vorticity. If a jet wake-wing-flap inter- 
ference calculation is performed, wake induced velocities are also 
included. 
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For purposes of computing span loadings on the wing and flap, 
equations (9) and (11) are summed over the chordwise rows oh the wing 
and flap vortices respectively. The vortex trailing leg contribution, 
represented by the second term in equation (9) is averaged over the left 
and right sides of the wing area element. The total lift is then calcu- 
lated by summing over the semispan and the result is multiplied by two 
to include the right wing and flap panels. 

The pitching moment is calculated by summing the products of the 
appropriate moment arms with the lift and streamwise forces acting on the 
area elements on the wing and flap. 

Perturbation velocities at points in the vicinity of the wing-flap 
surfaces are determined by adding the effects of all horseshoe vortices 
distributed on the wing and the flap as follows. The coordinates (x,y,z) 
of the point relative to the bound leg midpoint of each horseshoe vortex 
are first computed. Then the appropriate influence functions are calcu- 
lated according to equations (4) through (7) . The influence functions 
are then combined with the circulation strengths to calculate the pertur- 
bation velocities. For example, the wash velocities at a point (x,y,z) 
induced by a horseshoe vortex on the left wing panel are 

r 

u(x,y,z) =j:jj-F^(x,y,z,s,il;,()))'\ 

r I 

v(x,y,z) = F^(x,y,z,s,\j^,(}>) \ (13) 

r 

w(x,y,z) = ^ F^(XrY,z,s,^,ip) J 

Transformations indicated by equation (8) are necessary to compute the 
effects of a horseshoe vortex on the flap. The location of the point 
relative to the midpoint of the bound leg in the flap vortex coordinate 
system (x^,y^,z^) is determined first. The perturbation wash velocities 
induced by a horseshoe vortex on the left flap are then given by 
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u(x,y,z). = cos 




( 14 ) 


■*■ '^f '^f '®f "^XZ 

,.v(x,y,z) = ;^ F^(x^,y£,Z£,iJ<^,(J,^) 

w(x,y,‘z), = X F^(x£,y£,z^VS£,i()^,(J>^) cos 

“ (x£ f-y^ / z^ , (j)^) sin *^^^2 


^,The transformations indicated in equation (14) align 'the directions Of 
the perturbation velocities with the wing vortex coordinate system 
(x,y,z) . -'.'The influence functions in -equations (13)- and (14) are constructed 
such that ‘they also include the effects ■of -:the right wing' panel aWd flap 
horseshoe vortex as per equation (7). Finally, the’ process is- repeated ' 
for all horseshoe vortices distributed on the left wing panel and flap. 


, , Jet WaJce Model 

A potential flow model of a high-bypass-ratio turbofan engine and its 
wake is needed, which will yield the velocity field both inside and outside 
the jet wake. - The.vjet shape should behaye according to -known spreading 
rates for jets in a coflowing stream and the model should simulate the 
entrainment' effect exhibited, by jet wakes. Attention was directed toward 
the region of the wake within 10 or 12 radii downstream of the engine 
since; this, .is. the region of greatest interaction between the wake and 
the wingrflap. .• For, the same reason, no attempt was made to model the fan 
and engine ducts, since their contributions to the engine wake induced 
flow field are very, small compared to those of the wake. 

A wake model developed for a turbofan engine in a cruise condition 
is described in reference 8 . • In this model, the wake is represented by 
a constant diameter, constant strength, semi-infinite vortex cylinder. 

The wake velocity profile inherent with a vortex cylinder is a uniform 
axial velocity across the wake whose magnitude becomes essentially 
invariant with axial distance along the wake three radii or so downstream 
of the origin of the wake. This model has constant momentum inside the 
jet, but it also has constant mass flow in the jet which indicates that 
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entrainment of tHe free stre^ is not included in the model. The 
approach used for the cruise fan wake is retained, but the analytical 
model is modified according to some empirical observations to better 
approximate the actual turbulent jet in a coflowing stream. 

Model description .- The description of an axisymmetric turbulent jet 
in a coflowing stream as given in reference 7 is used as basis for the 
needed potential flow model. In this reference, experimental data is 
used to develop an analytical representation -of a coflowing jet. The 
jet is divided into two separate regions for analysis: the initial region 

in which the jet velocity does not decay within the confines of a central 
core, and the main region in which the velocity decays with distance along 
the jet centerline, (fig,.f 4) .' With assumptions- on the form of* the’ velocity 
profile and constant: momentum within the wake-, the spreading, r^te of an. . 
incompressible turbulent ijet can be -defined.. .Spreading. rates are shown 
in figure;. 4 'for various jet velocity ratios-; The characteristics- of the 
initial>;_ region as a function of j.et velocity ratio are shown* in figure 5. 

The development of the pbtehtial flow model proceeds in the following 
manner. Instead of maintaining a constant radius along the jet as in 
reference 8, a vorticity distribution is placed on the specified expanding 
jet boundary.-. This is carried out by replacing the continuous vorticity. 
distribution of the cylinder with, a series of vortex rings coaxial with 
the jet centerlina. Each ring represents a finite increment of -length of 
the jet wake boundary and the vortex strength of each ring is equal to 
the ne-t vorticity on the* incremental* length of the boundary . This model 
is shown schematically.^ in. f igure 6. for a particular jet velocity ratio. 

The semi-infinite length of the jet wake is replaced with a finite length- 
model of vortex rings. The length is specified such that the difference 
between induced velocities calculated with a finite length cylinder and' 
those calculated with the. .semi-infinite cylinder is acceptably small 
■{less than 1 percent) in the near vzake. 

The strength of the vortex ring at any point along the jet is 



where y/V is the strength of the constant radius vortex' cylinder 
corresponding to the specified engine thrust coefficient. This^vortex 
cylinder strength is 
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V = - 1 (16) 

where is a uniform velocity across the initial jet area, A ^ , and can 

be calculated in terms of the thrust coefficient as follows. Assuming 

an incompressible jet, the velocity ratio at the fan exit based on 
momentiim considerations is approximately 


T - 7 




(17) 


which when expanded over the entire wake area results in the needed jet 
velocity ratio: 



(18) 


Equations. (17) and (18) have been applied to a cold-gas turbine-driven 
model of a high-bypass-ratio turbofan engine on which the thrust coefficient 
and the fan exit velocity are known from measurements. This simple method 
predicted the fan exit velocity within 5 percent of the experimental 
average value. 

/ 

From equation (15) , the strength of the initial vortex ring is 
Fjo = yAs\ As the radius of the successive rings increases, their, 
circulation strength is decreased proportionally such that the product of 
Fj and the ring circumference remains constant. The induced velocity 
at any point in ihe field is calculated by summing the effects of all the 
vortex rings making up the jet model. The induced velocity equations are 
described in the next section. 


Predicted jet velocity profiles at several stations along a jet 
centerline are shown in figure 6 for a jet velocity ratio V^/V = 6. 

The average velocity inside the wake boundary decreases with axial 
distance along the centerline. in almost inverse proportion with the jet 
radius. The vortex ring model theoretically should give a constant 
velocity profile across the jet radius; however, the finite-step 
summation procedure results in a rounded profile near the wake boundary. 
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The expanding vortex ring model in the absence of a free-stream 
velocity satisfies the requirement of constant momentxim inside the jet 
which is in agreement with the Abramovich model. When an external flow 
is superimposed on the vortex ring model, the momentum is no Ipng.er 
constant in the jet. The change in momentum in the initial region of a 
jet is shown in figure 7 for a range of typical jet velocity ratios. 

The vortex ring model of the jet shows a small increase in momentum in 
the initial region of the jet in contrast with the Abramovich model. 

An estimate of the effect of this momentum change on the externally 
induced flow field can be made by comparing the mass flows of the two 
models. This is done in figure 8, v/here it is shown that the vortex 
ring model has a larger increase in mass in the initial region of the 
jet than does the Abramovich model. The implication of this result is 
that the vortex ring model will predict more inflow to the jet and thus 
show a larger entrainment effect than the Abramovich model. In the 
region of interest within 10 radii of the engine exit, the differences 
are small and should not lead to any appreciable error in the interference 
calculation. 

It is desirable in subsequent interference calculations to permit 
the jet wake to deflect under the influence of the wing-induced sidewash 
and downwash and the cross flow component of the free stream. Accordingly, 
provision has been made in developing the equation for the velocity 
induced by the wake to place the vortex rings normal to the local wake 
centerline. A limitation is thereby placed on the centerline curvature, 
in that numerical problems may arise if two adjacent rings intersect. 

Velocities induced by jet wake model .- The wake model is made up of 
a series of vortex rings lying along the prescribed centerline of the jet 
as shown in figure 9(a). The details of a single ring and its relative 
position with respect to an arbitrary field point, P, are shown in 
figure 9(b). The velocity induced at point P by a single vortex ring 
is calculated as follows. 

( i. 

The coordinates of point P in the wing coordinate system are 
transformed to the jet coordinate system according to 
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= -x„ + X, 




Yd = Vr. - 


P > 


Zp -Zp j 


( 19 ) 


where point Q denotes the center of the origin of the jet (fig. 9(a)). 
Coordinates of P transformed to a ring-centered coordinate system 
become 


■N 

?P = (Xp - Xg) cos e + (Zp - Zg) sin 0 

np = -(Yp-.ys) > 

?P = (Xp - Xg) sin 6 - (Zp - Zg) cos 6 


( 20 ) 


where the point S denotes the location of the center of the vortex ring. 
From reference 12, the induced axial velocity is 



( 21 ) 


where the radial distance to point P is 


Tp = y(r,p)" + (Cp)" 

and the argument of the elliptic integrals is 


( 22 ) 


= 




Vr J Vr R / 

'O' No o' 


( 23 ) 


22 



The induced radial velocity is 



( 24 ) 


These velocity components, when resolved into components in the wing 
coordinate system, become 
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The total velocity induced at the point P by the entire jet wake 
model is obtained by summing the velocities induced by all the rings 
forming the wake. 


Interference Calculation 

In order to calculate the aerodynamic loading of a wing-flap con- 
figuration under the influence of the jet wake of a turbofan engine, it 
is necessary to combine the two potential flow models just described. 

The wing-flap loading is not considered to affect the engine thrust or 
Lhe basic velocity distribution in the engine wake. However, the 
component of the free stream velocity normal to the engine centerline 
(if any) and the velocity field induced by the wing-flap are considered 
to deflect the engine wake ahead of the point where it impinges on the 
wing and flap. Because of this interaction, either a simultaneous solu- 
tion using both flow models or an iterative solution is required. The 
latter choice was selected. The general approach evolved is as follows. 
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The aerodynamic loading on the wing-flap at an angle of attack in 
a uniform flow (without engine wake) is calculated first. As a part of 
this solution, the flow field beneath the wing in the region where the 
engine and its wake would be introduced is calculated. The specific 
region selected is the engine centerline and its extension aft to a 
point approximately one chord length aft of the wing. Sufficient points 
are selected along this line to obtain the induced downwash and sidewash 
distribution. At this point, the w and v .. velocities are combined 
vectorily with V (neglecting the u) to obtain the flow directions 
along the engine centerline extension. Finally, the streamline passing 
through’ the center. ^of the exhaust of the as yet unintroduced engine is 
defined _approximately by laying off a series of straight line segments 
aft from the engine exhaust, where each segment has the local flow 
direction as calculated above . ^ 

An iteration procedure appropriate to the information noted above 
would consist of laying the jet wake centerline along the approximate 
streamline, computing the velocity components induced through the wing- 
flap at the control- points by the wake, recomputing the wing-flap vorticity, 
and recomputing the streamline by now combining the new wash velocities 
with V and Vj . Since the coordinates of this streamline would be 
somewhat different from those of the initial streamline, further 
iterations would be performed until the streamline coordinates no 
longer changed by more than some acceptable amount. It should be noted 
that in the first iteration, the initial streamline would not intersect 
the wing or flap surfaces,' but when the jet model is laid on the stream- 
line, the jet wake generally will pass through portions of the wing and 
flap surfaces. At the end of the first iteration, however, sufficient, 
additional bound and trailing vorticity has been placed on the wing and 
flap to cause the combined' free stream and jet wake flow C-ncluding the 
effects of induced . v and w, V and V^) to be tangent to the wing and 
flap surfaces at all. control, points. The additional vorticity is a 
measure of the wake-induced' interference. . 

The actual procedure adopted was somewhat different than that just 
described in order to increase the convergence rate of the iteration 

^ The streamline is approximate in that as the streamline departs from 
the engine;, centerline extension,, the wash velocities induced at points 
along this streamline are slightly different from those computed on the 
extension.' 
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procedure. The down- and sidewash velocities are generally small compared 
to V, but Vj is perhaps three to six times the value of V. If one 
examines the changes in the flow field between the wing-flap alone at 
the beginning of the first iteration and the wing-flap- jet at the end of 
the first iteration, the largest effect on flow angles is caused by the 
inclusion of rather than the changes in induced v and w velocities 

due to wake interaction with the wing-flap. Therefore, the addition of 
Vj to the flow field underneath the wing-flap alone in order to get the 
initial wake centerline will decrease the differences between the initial 
wake centerline and the "engine wake" streamline computed at the end of 
the first iteration, which should cause more rapid convergence. The 
procedure is as follows. The induced down- and sidewash velocrties due 
to the wing-flap in a uniform flow are computed as before, to start the 
first iteration. These are then combined with V and Vj to construct 
the straight line segments leaving the engine exhaust. This line at this 
point is no longer a streamline, but will be closer, to the streamline 
calculated at the end of the first iteration than was the case previously. 
Note again that the total flow at the end of the first iteration will be 
tangent to the wing and flap surfaces at all control points. 

The results presented in this report we.re obtained after the first 
iteration/, It is felt that with the modified procedure just described, 
there should be little change in wing-flap loadings between the first 
and second iterations. Although downwash and sidewash velocity results 
are shown in the results for the beginning and end of the first iteration, 
no second iteration calculations were carried out to verify this point. 

As an additional comment on the convergence issue, it should be noted 
that the degree of convergence will be dependent on the lattice arrange- 
ment used. If a coarse lattice is used, small changes in wake displacement, 
principally vertically, will affect relatively large areas on the flap 
and wing, and the solution will oscillate with perhaps undesirably large 
amplitudes. Thus, the above comments on the improvement in convergence 
would apply to relatively fine lattice arrangements. 

COMPARISON OF THEORY WITH EXPERIMENT 


In order to evaluate the methods previously described, calculations 
were made for a number of configurations for which data exist. For 
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comparison purposes, the number of investigations providing useful data 
are quite limited for several reasons. The models in many cases are 
complete configurations which have tail and fuselage effects in addition 
to the flap and engine effects. In most cases, the engine thrust is not 
measured directly and, in particular, the engine wake velocities are not 
measured. Finally, in many cases it is difficult to obtain sufficient 
detail on the configuration to accurately model the wing camber and -twist 
and the flap size and location. 

Five sets of data were identified and used for comparison purposes. 
The data consist of overall lift and pitching moment and in two cases 
chordwise pressure distributions on the wing and flap. The discussion 
is divided into wing-flap comparisons and jet-wing-flap comparisons 
and finally discussion of the theoretical methods in light of the 
comparisons. 


Wing-Flap 

Lift and pitching moment and chordwise pressure distributions are 
available on an aspect ratio 6 rectangular wing with a slotted,' Fowler-type 
flap having a chord 24 percent of the wing-flap chord with flaps up 
(ref. 13) . The wing v;as supported by a small cylindrical "fuselage" 
which should have a negligible influence on the wing lift. The comparison 
of predicted and measured lift and moment is shown in figure 10(a) for 
flaps off and flaps deflected 40°. The vortex-lattice arrangement used 
was 6 chordwise by 20 spanwise on the wing semispan and 2 by 20 on the 
flap. 

For flaps off, the lift and moment agree very well with the data. 

With, flaps deflected, the lift curve slope is well predicted but the 
lift magnitude is high by about 5 percent. The moment is also overpre- 
dicted (i.e., too negative). Since both the predicted lift and moment are 
high, the indication is that the flap lift is being overpredicted. This is 
verified in the results for chordwise variation of pressure difference, 
shown in figure 10(b). The predicted values were obtained by calculating the 
circulation on each chordwise area element, computing the pressure difference 
associated with the circulation strength, and considering that pressure 
difference to exist at the panel quarter chord. The results indicate that 
the loading on the flap is overpredicted for both angles of attack shown. 
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whereas the loading on the wing is reasonably well predicted. The chord- 
wise distribution of area elements for this calculation was chosen so that 
the elements on both the wing and flap have about the same chordwise length. 
According to the results of Appendix A, this arrangement for this size flap 
should give good results. It is possible that a larger chordwise number on 
the flap (greater than 2) would change the predicted loadings, although 
this was not investigated. 

The second set of results was obtained on a semispan model of a 
rectangi^ar cambered wing of aspect ratio 5.3 with a double slotted flap 
system (rerT' T4) . The flap chord length (sum of both segments) is about 
39 percent of the chord of the wing-flap combination with flaps up. The 
comparison is shown in figure 11 for three flap angles. The predicted 
results were obtained using a 6 by 20 lattice on the wing semispan and a 
3 by 20 lattice on the flaps. The agreement on lift and pitching moment 
is good for the zero and 20/40 degrees deflection, angles . With the 30/60 
deflectidn angle, the lift curve slope agreement is still good but the 
magnitude is overpredicted by approximately 10 percent. The predicted 
pitching moment is too negative for this angle. It is probable, that some 
separation existed on the flap at the largest deflection angle, which 
could cause the measured lift and pitching moment to be lower than the 
predicted results. 

The third set of results consists of chordwise pressure distributions 
on a swept wing with a partial span flap. The configuration, illustrated 
in the sketch in figure 12, has a 35° leading-edge sweep angle and a flap 
occupying approximately half of the semispan. Loading calculations were 
made at zero angle of attack with a 10° flap deflection at a Mach number 
of 0.6. A Prandtl-Glauert correction was used to account for compressi- 
bility effects, as described in reference's. The lattice arrangement was 
S chordwise by 15 spanwise (so that there are 2 chordwise on the flap) . 

The results , shown in figure 12 are the chordwise variation of- pressure 
difference near the midspan of the flap. The pressure difference was 
computed in the same manner as was described above in connection with 
figure 10. 

I 

The agreement of ACp is quite good over the entire chord. In 
this model there was essentially no gap between the flap and wing, unlike 
figure 10, and there is a loading peak at the wing-flap junction, which 
is also well predicted. 
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Jet-Wing-Flap 

Data are. available in reference 4 on a STOL model with a rectangular, 
cambered wing with a leading-edge slat, double-slotted flaps, and two 
engines on the semispan. The model engines are cold-gas-turbine-driven 
fans which model quite well the wake of a high-bypass-ratio turbofan 
engine. The engines were mounted at 3® incidence to the wing in order 
to direct their exhaust upwards towards the flap. Their static thrust, 
was measured over a range of engine speeds and these data were used to 
obtain thrust coefficients at the flight condition of interest. The 
model had no tail surfaces and the influence of , the fuselage was neglected, 
which is felt to be a reasonable assumption because of its small size with 
respect to the wing. The slat has a chord equal to 19 percent of the 
wing flap and the two flaps have a combined chord equal to 33 percent of 
the wing-flap with flaps up. The slat was treated as a highly cambered 
leading edge. 

The wing and flap system were modeled with a 10 chordwise by 15 
spanwise lattice on the wing and a 2 by 24 lattice on the flaps. The 
area element layout for the left wing panel and flap is illustrated in 
figure 13. Several features are noteworthy. First, the area elements 
locally are symmetric with respect to each engine centerline. Since 
the wing has no sweep, the sidewash under the wing is small and the 
engine wakes tend to move straight aft. Maintaining local symmetry 
provides that panels both inboard and outboard of the wake are affected 
equally as the wake spreads. The shaded areas represent the area elements 
within the undeflected jet wake boundary. Secondly, the area elements 
have smaller spanwise dimensions in the region of the jet wake. By using 
smaller elements in this region, the area of the wing and flap impinged upon 
by the jet wake changes more smoothly as the wake spreading changes or as the 
wake moves vertically due to the effects of the flow field under the wing- 
flap surfaces. By the same reasoning, it is desirable to have small 
chordwise spacings on the area elements of the v;ing in the region of the 
wake . 

Results for lift and moment on this wing are given in figure 14. 

The lower two curves represent an engine-off condition for zero flap 
deflection and 17.5/35 degrees flap deflection. The zero deflection 
data and theory agree very well whereas the 17.5/35 degree results do not. 
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In view of the agreement obtained at moderate flap angles in figure 10 and 
the irregularity of the data points, the lack of agreement is not considered 
significant. The upper three curves represent two different power settings 
with flaps deflected 17.5/35 degrees. For the full power case (C^ = 5.5), 
calculations were made assuming the wake remained coaxial with the engine 
(dashed curve) and assuming the engine wake was deflected in accordance 
with the downwash field under the wing (solid curve) . In the latter case, 
at small a, the induced downwash deflects the wake downward and thus 
reduces the effect of the wake on the wing and flap loading over the unde- 
flected wake case. At high a, the oi-induced upwash drives the wake into 
the wing and flap and increases the wake-induced effects. The net. result 
is to improve the agreement for the case where downwash- induced wake 
deflection is included. For the intermediate power case (C^ = 2.75), the 
slope (which includes downwash effects) is good but the predicted magnitude 
is low. The reason for the discrepancy is not known but may be due to the 
use of an incorrect engine wake velocity, since the slope agrees well. 

The moments are in reasonable agreement in all cases • 

The final set of results are for a semispan model with one engine 
per panel (iref. 5). The tests were quite systematic in that the same 
wing-engine combination was tested unswept and swept 30° with three 
different flap configurations. The wing is an untapered, cambered wing 
with aspect ratio of about 3.5 in the unswept configuration and 3 in the 
swept configuration, based on the span and the wing without flap. The 
engine is a 1.02 pressure-ratio ducted fan mounted on a long, large 
centerbody, as illustrated in the sketch on figure 15(a). Fan wake 
measurements were made to determine the engine wake velocity profile 
(the only such measurements made in all the data examined) . Since the 
theoretical turbofan engine model does not allow for a centerbody aft of 
the engine, the assumption was made, that the fan exit flow expands to 
fill the entire area within the duct trailing edge. The wing-flap was 
modeled with a 4 by 20 lattice on the wing and the flap lattice arrangement 
was dependent on the flap size. The spanwise lattice spacing was uniform 
on both wing and flap. 

Figure 15(a) shows results for an unswept wing with a thrust coef- 
ficient of 2.3 and a double-slotted flap with 10/30 degrees flap ■. 
deflection. The flap chord (both flaps) is 47 percent of the wing-flap 
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chord with flaps up. The lattice arrangement used on the flaps was a 
4 chordwise by 20 spanwise layout. The agreement on lift and moment is' 
excellent in this case. The engine wake was assumed to remain coaxial with 
the fan in this calculation, since it was felt that the centerbody would 
tend to "guide" the wake flow under the wing. In addition, the predicted 
downwash distribution for the wing-flap in uniform flow, shown in 
figure 15(b)., was relatively small in the region where it could influence 
the wake vertical, deflection (the V sin a component, which is negative, 
tends to offset the w . to get the net angle of the jet flow) . 

Figures 16(a)- and (b) show similar comparisons for the same, configu- 
ration and thrust coefficient but a considerably larger flap deflection - 
angle. Two theoretical curves are shown. The dashed one is. for. the 
case of'-the engine wake coaxial with the engine centerbody. The solid . 

t 

curve is based on vertical deflection of the wake in accordance with the- , 
wing-f lap-induced i^downwash distribution 'of figure 16(b). Both curves 
are higher than the data by 25. and 10 percent, respectively. 

The comparison of the undeflected wake' curve given by the dashed '■ * 
line in figure 16 (’a) , with the upper curve of figure 15(a) indicates the 
predicted lift to vary approximately linearly with flap deflection angle 
for the same thrust coefficient. However, the wing loading increases 
due to increasing flap deflection and therefore the induced downwash 
below the wing increases, as shown by comparing figures 15(b) and 16(b). 

The result is a slightly higher upwash below the leading edge and a " 
higher downwash below the aft part of the wing and the flap. The effect 
of deflecting the wake according to this downwash (ignoring any "guiding" 
effect the centerbody might have), is .to lower the lift coefficient 
considerably near zero a because of the . flap- induced downwash and . 
lower it less at high a because the sin a component tends to drive 

the wake up into the flap and wing. The net effect is to . increase the 
lift-curve slope so it agrees with the data and to reduce the 
magnitude of the' lift coefficient towards that of the experimental values. 
The 30/60 degrees experimental data do not show the linear range 
indicated by the 10/30 degrees data. Some powered static -test results 
for this v/ing-flap configuration presented in reference 5 indicate little 
loss in flap effectiveness at 10/30 degrees but a considerable loss at 
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30/60 degrees. Consequently, it is probable that some separation is 
occurring for the 30/60 degrees case, which would account for the oyer- 
prediction. 

The moment predictions in figure 16(a) are consistent with the lift 
results. The moment is over pred ic ted (i.e. , more negative) without 
inclusion of the' downwash, and its inclusion improves the agreement on 
magnitude and provides' a moment curve slope that agrees with the data for 
low angles of attack. ' ' ■' ’ ’ 

Figure 17(a) shows lift and moment results for the 30° swept wing 
with a triple slotted flap. The combined flap chord is about 58 -percent 
of the chord of the wing-flap combination with. the flap undeflected.'. A 
5 chordwise by 20 spanwise -vortex element arrangement was used, to represent 
the flap system. The lift and moment curves for the ehgine-qff, flaps-up 
case agree reasonably well with the data .• The lift curve slope for 
10/20/30 degrees flap deflection with’ engine off agrees well and the over- 
prediction on lift is mostly due to the camber problem.. The moment, 
however., is -^considerably underpredicted. The data indicate a slight 
shift forward in center of pressure with angle of attack whereas the 
theory predicts a large forward shift. The calculation of moments on a 
swept wing is much more sensitive to the spanwise and chordwise load 
distribution than is the case on an unswept, wing. It is possible that 
a different vortex layout would more adequately represent the loading 
distribution on the wing and flap, but such calculations .were not made. 

Two sets of curves are shown for the case of 10/20/30 degrees flap 
and wing loading with power. . The dashed one represents the predicted 
results with an engine wake coaxial with the centerbody and considerably 
overpredicts the measured lift although the. slope is reasonably good. 

In order to assess the influence of wake deflection on the calculated 
results, the downwash and sidewash velocities induced by the wing and. 
flap in uniform flow were computed along the (absent) engine centerline 
and are shown in figure 17(b). In addition to the downwash distribution, 
there is some sidewash due to wing sweep which tends to move the 
wake outboard. Using these results, a calculation was made with a 
wake deflected both vertically and laterally and the upper solid 
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curve was obtained. The magnitude of the lift is considerably improved, 
although it is still about 12 percent high. The predicted moment results 
are not affected greatly by the wake deflection and still show too low a 
nose down moment. 

Discussion of Results 

Insofar as the results described above are concerned, there are three 
aspects of the method that should be discussed. These are the subjects of 
iteration, lattice layout, and jet wake. deflection. 

The description of the interference calculation indicated that an 
iterative scheme involving sequential use of the wing-flap and jet 
wake modeis'was employed. Since the only "interference" of the wing-flap 
on the jet wake is the deflection of the wake centerline, the iteration 
'is on the centerline location. All of the data comparisons just des- 
cribed are based on results obtained at the end of the first iteration. 

At this point, the wake position has been based on a line determined by 
the free-stream velocity, the induced flow from the wing-flap in uniform 
flow, and the jet velocity. Also at this point, a streamline leaving the 
engine exit can be calculated using the free stream, the induced flow 
from the wing-flap as interfered upon by the jet wake, and the jet 
velocity. The changes to be expected between iterations are determined 
by the differences between these two line locations. 

Although no complete second iteration has been calculated, wing- 
induced downwash comparisons have been made before and after jet-induced- 
loadings have been included in the wing circulation distribution. As an 
example, figure 18 illustrates these two downwash and sidewash distri- 
butions for the swept wing-flap configuration described in connection 
with figure 17 at zero angle of attack. The curves are very similar from 
the engine exit aft to approximately the midchord of the three segment 
flap. Thereafter, the velocities calculated with jet-wake interference 
differ from the wing-flap alone values, particularly for downwash. Thus 
wake centerlines with and without jet-wake, interference placed on a 
streamline under the wing would not differ significantly until the wake 
has reached the midchord of the flap, and the wake would strike the same 
area elements on the wing and the forward half of the flap. On the 
basis of these results, it is anticipated that the second iteration would 
not produce a significant change in the lift and moment on the wing. 
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It is known that the number of area elements used on the wing and flap 
affects the calculated lift and moment for a vortex-lattice method (ref. 10). 
The general guides of reference 10 with respect to the ratio of spanwise to 
chordwise area elements and the spanwise number of elements were used 
initially to minimize the errors from this source. However, with jet im- 
pingement on a portion of the wing and flap, an additional difficulty arises 
with regard to the element arrangement. Initially, a uniform spanwise 
spacing was used in calculating wake-induced loadings. It was found that 
the results were sensitive to those factors determining the wing-flap area 
on which the jet impinged, such as wake spreading angle, wake deflection, 
and engine incidence. Finer lattice arrangements improved this situation. 

The scope of the contract was subsequently increased to permit the syste- 
matic lattice investigation described in Appendix A. On the basis of 
these results, it is felt that many of the calculated results presented 
here are essentially converged in terms of changes with increasingly fine 
lattice arrangements. However, it is desirable that some additional work 
on lattice arrangement be done with wake augmentation, particularly in 
conjunction with consideration of wake deflection. 

Finally, it should be noted that very little data are available for 
use as a guide in estimating the accuracy with which the wake centerline 
is modeled. A relatively simple streamline model consisting of 3 , or 4 
points axially to define the slope and deflection of the wake center stream- 
line was used in the comparisons presented herein. On the basis of results 
obtained with this model, the general approach of fitting.a wake profile 
to a centerline which is permitted to change with the wing-flap-induced 
flow field appears to yield the proper behavior for the wake-flap inter- 
action. It was felt however that a more detailed calculation of the 
streamline was not justified until additional flow field data were avail- 
able for comparison with predictions. 

WING-FLAP VORTEX-LATTICE PROGRAM 

The purpose of this section is to describe the vortex-lattice computer 
program in sufficient detail to permit understanding and use of the 
program. This program computes span loadings, overall lift and pitching 
moment coefficients for a wing-flap configuration. Perturbation velocities 
induced by the wing-flap lifting surfaces at prescribed field points can 
also be computed. The wing is considered the main surface and the flap 
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is an optional item. The influence of an engine jet-wake or other source 
of externally induced perturbation velocities can be included in the 
loading calculation. 

Configuration parameters taken into consideration by the program 
are listed in the section concerned with the theoretical analysis of the 
vortex- lattice lifting-surface model. 

Fundamentally, the program is based on representing the wing and 
flap surfaces by horseshoe vortices. The circulation strengths are 
determined from a set of simultaneous equations provided by the flow 
tangency boundary condition applied at a finite set of control points 
distributed over the wing and flap surfaces. The boundary conditions, 
expressed by equations (1) and (2) , feature the optional inclusion of 
interference velocities induced by an external component such as the 
jet-wake of a turbofan engine. 

Sample cases described at the end of this section illustrate how 
the program handles a wing-flap combination with and without engine jet- 
wake interference. 


Program Description 

Calculation procedure .- The computer program proceeds through 
various stages as follows. After run identification and input of 
certain control variables, the wing-flap geometry is read in. This 
includes information such as wing leading- and trailing-edge sweep - 

angles measured in the wing planform plane, root chord, semispan, and 
dihedral. The same parameters are specified for the undeflected flap 
except dihedral but with the addition of the flap root chord leading- 
edge location in the wing root chord coordinate system. 

The vortex lattice to be laid out on the wing and flap is speci- 
fied next in terms of the chordwise and spanwise numbers of vortices on 
the left wing panel and flap. Associated with the spanwise specifications 
are the spanwise coordinates of the left trailing legs of the horseshoe 
vortices . The distances along the semispan from the plane of symmetry 
(X-Z plane) to the left legs are predetermined by the user and read in 
separately for the wing and the 'flap. 
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After reading in the local wing and flap angles due to wing camber 
and^twist and flap camber, respectively, the program proceeds to calculate 
the tangents of the wing and undeflected flap leading- and trailing-edge 
sweep angles in the wing chordal plane. The next optional input consists 
of coordinates of field points at which wing-flap vortex-lattice induced 
perturbation velocities are to be calculated. This is followed by the 
specification of wing angle of attack, flap deflection angle measured 
perpendicular to the hingeline, and some more control variables. 

The program then computes angles necessary for the layout of 
vortices on the deflected flap. The set of externally induced pertur- 
bation velocities is optionally read in as the last item of input. 

After displaying most of the geometry and vortex-lattice specifications 
in output, the program proceeds to lay out the wing and deflected flap 
with one horseshoe vortex assigned to an area element. The wing vortex 
trailing legs extend downstream to infinity while the flap vortex 
trailing legs extend downward at the streamwise flap angle, i^slstive 

to the wing vortex trailing legs. This section of the program also 
calculates the coordinates of the control points- at which the flow 
tangency boundary conditions are to be satisfied. 

Upon completion of the wing and flap vortex layout computations. 
Subroutine INFWW determines the influence functions required by the main 
program and given by equations (4) through (7) for the construction of the 
influence coefficient matrix defined by the left-hand side of equations 
(1) and (2) . The next step is to build up the array defined by the right- 
hand side of the equations. Subroutine INVERS then solves the set of simul- 
taneous equations by a Gaussian elimination method to obtain the unknown 
circulation strengths, T/V. 

After the circulation strengths are known, wing-flap vorticity- 
induced perturbation velocities at field points specified by the user 
are computed as an option. Next, the program calls on Subroutine LOADl 
to calculate overall lift and pitching moments as well as spanwise loadings 
on the wing and the flap. This calculation is based on equations (9) 
through (12) for the aerodynamic forces acting on wing and flap area 
elements. These loadings are due to vorticity on the wing and flap with 
or without the interference effects of externally induced velocities. 


35 



such as produced by an engine jet wake. If an engine is present, the 
direct contribution to lift and pitching moment must be separately deter- 
mined by the user and added to the program calculated lift and pitching 
moment . which. include the effects of jet wake-wing-flap interference. 

The remainder of the program arranges for the output of control 
points coordinates, vortex-lattice arrangement and circulation strengths.. 
Overall lift and pitching moment and spanwise loadings are printed. Lastly, 
the pptionaMy. determined wing-flap induced velocities at user prescribed 
field points, .are listed. 

For/ a giv'en wing-flap configuration-, the computer program can treat 
a maximum of 10 flow condition cases. The flow conditions are given by 
the wing angle of attack and the set of externally induced velocities (if 
applicabiej ..both of V7hich appear on the right hand side of equations (1) 
and (2) . In addition, the program is arranged to read in consecutively as 
many sets of wing-flap configuration data as the user desires. 

Program operation . - The wing-flap vortex-lattice computer program is 
written in Fortran IV language and has been run on the IBM 360/67 TSS 
batch system at the Ames Research Laboratory. With this machine 220 
control points .can be used, although this number is not necessarily a 
maximum. This program also makes use of the ability of the TSS system 
to generate,, store, and' read . from data sets. This feature is used as an 
option and the items treated this way are the control point coordinates 
and the externally. induced velocities. As an alternative, the latter are 
read in via cards. If the program is to be run on a different computer 
with smairer storage, dimension statements need to be changed to permit 
operation on that machine. 

No tapes are- required other than the standard input and output. For 
a configuration employing 160 control points, the running time on"‘the TSS 
batch system to calculate loadings and wing-flap induced perturbation 
velocities at about 10 field points requires approximately 4 minutes for 
one angle of attack. 

Program limitations and precautions .- There are problems that could 
arise in the use of the program. The first has to do with the layout of 
the vortices. The- velocity induced at a point by a vortex filament becomes 
singular as the point approaches the filament. For each influence function. 
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Subroutine INFWW avoids the singularity by examining a function which 
contains the distance between the point and the filament. If the value 
of this function is less than 225xl0~*® times the square of the wing 
semispan (also used in ref. 10), that influence coefficient is set equal 
to zero. 

Some care must be taken in selecting the spanwise widths of adjacent 
area elements and selecting field point locations for calculating wing-flap 
induced velocities. As a general rule, the spanwise widths of two 
adjacent' area elements should not differ. by more than half of the smaller 
width, • Use of the program has indicated that wing-flap induced velocities 
can be computed at locations as close to the wing and/or flap as one-half 
of the width of ..the nearest horseshoe vortex. At smaller distances, the 
influence of the nearest bound vortex . filament is unduly large and causes 
unrealistic velocities. The same reasons preclude the positioning of 
a flap such that the wing trailing vortex legs cut through the flap surfaces 
close to the flap control points. The input specification of the chord- 
wise number of flap vortices fixes the number of area elements on the flap 
in the chordwise direction. In a cross section of the wing with the flap 
deflected, the user should compute the 3/4 chord of the area elements 
on the flap. He should then make sure that the wing trailing vortices 
are at least one-half of the wing vortex-width removed from the nearest 
flap control points. 

Description of Input 

This section describes the input for the wing-flap computer program. 

In the following discussion, the content of all input cards is described 
and, where appropriate, instructions on generating the input quantities 
are given. All input variables are listed at the end of this section 
in the order of appearance in the input deck, except that the first four 
variables listed do not appear' in the input deck but are needed for pro- 
gram.' input preparation. The input format for all cards is shown in 
figure 19, and'i'the item numbers refer to figure 19. ■ 
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Item 1 


The first card serves as identification and may contain any alpha- ^ 
numeric information desired. This information is printed on the first- 
page of the output. 

Item 2 , ... . ...... 

■The second card' contains several control variables'-Which- gov’ern- ' i'-- 
certain .geometric parameter input, options as indicated i-n - Chie 'table ■‘at- ■ 
the end o.f.vthis section. The. option concerning the specificatidri of the 
flap root .-chord is discussed in connection with Item 4 beTo'w.'- ■ ' ' ’ 

item 3 ‘ ■ ' • ' . 

The third card contains wing geometry data specified in the wing 
planform plane. ^ The necessary parameters are the leading- and trailing-, 
edge sweep angles, root chord, semispan and dihedral. The. sign .conven- 
tions for the sweep and dihedral angles are shown in figure 2 and follow 
the usual convention where positive sweep is aft, positive dihedral 
corresponds to wing tips above the wing root chord. The wing root chord, 
semispan, and all other lengths shown in figure 2, are dimensional and 
should have ' consistent units of length. 

Item 4 

The fourth card contains the following geometry data for the flap: 
leading- and trailing-edge sweep angles, flap root, chord, semispan, arid 
the coordinates of the flap root chord leading edge. The flap root Chord 
is defined' for the undeflected or deflected flap as follov/s. The leading 
and trailing edges of the .flap are extended inboard until they intersect 
the symmetry plane. The line connecting the two intersection points lies 
in the plarie of symmetry and is defined as the flap root chprd measured in 
that plane, . . • , ^ 

The- flap geometry parameters are specified for the undeflected flap 
except for the flap root chord which may be specified for either the ■ 
deflected or undeflected flap in accordance with the value of -the control 
variable MFSPEC in Item 2. This choice depends on the manner in which 
the flap details are specified to the user: cross section with the flap 

def'lected or undeflected. This distinction is not applicable to unswept 
wing^flap combinations. The undeflected flap lies in or is parallel to 
the wing chordal plane and has its planform and dimensions determined 
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by rotating the deflected flap into the wing chordal plane or a plane 
parallel to it. ■ in this way, flap sweep angles are specified in the 
wing' planfdfm plane as are the wing sweep angles.' 

At this point it should be noted that the vortex-lattice program 
performs certain geometrical transformations while in the process of “ 
laying^-qut.thejyortex lattice in the , chordal plane of , the deflected flap 
In doing -so, ijthe , -innermost and the outermost horseshoe vortex ' trailing 
legs on. the jf-lap, -.which lie in planes parallel to the X-Z plane, are - 
made to or iginate , from ..the leading edge of the deflected flap' inboard arid 
outboard chords. The effective span of the deflected flap is therefore 
determined by the innermost and outermost locations of the flap vortex 
trailing' legs . ■ This in effect changes the aerodynamically loaded area of 
the flap- by a small amount which should be of little consequence in the’ 
lift arid pitching moment calculation. . ' 

Multiple • slotted flaps are idealized as a single flap with its 
chordal plane defined by the leading edge of the most forward flap 
component and the trailing edge of the aft flap component. The camber 
of the idealized flap is determined from the individual flap component 
angles. 

If no flap is present, a blank card is inserted for this item. 

. : ' ■ ■ ■ ' ' ' ' 

Item' 5 

The fifth card specifies the number of chordwise and spanv/ise- 
vortices on the left wing panel and flap. The accuracy of the predicted ' 
lift .and moment depends on .the number of layout of vortices used; 

A number of calculations were made to investigate the sensitivity 
of the predicted loading distribution to the vortex-lattice layout. 

These calculations are described in Appendix A. From these calculations, 
reconimendations! have been determined for the optimum vortex-lattice 
layout for a. variety of wing-flap conf igurations . The user should 
consult the -rappendix’ for guidance on the layout. 
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While the vortex layout associated with this computer program is 
very, flexible, it. is limited by the maximum allowable number of vortices 
(or 'control' -points) specified in the DIMENSION statements. The • sum of the 
products'- of 'chordwise and spanwise vortices on the wing and- flap should 

not^exceed 220 V '■ ' • • V ; . 

Item 6 

. Tli’e sixth a!nd following ''cards comprising Item 6 list" the spaiiwis'e 

‘i.r v.’-i ‘ r • ‘ . f o r ‘ i . 

location Y(I) of the outboard trailing legs of .each chord 'row of " 
vortices' on the wing. The input quantities are dimensional spanwise 
distances ‘which should have' the same units as the wing' and flap semi- 
span and chord input values. All distances are input as positive 
quantitiesvV.; The iinput starts at the root chord and proceeds outward 
towards the tip, according to the index I. An index value 1=1 is 
assigned to the trailing legs oh the root chord with spanwise location 
y(I = 1) = 0.0. This is the first quantity on the first card for this 
item. The second quantity is the distance from the root, chord to the 
outboard trailing’ legs of the innermost chordwise row of horseshoe 
vortices'. 

Since there are MSW vortices, spanwise, on the wing, the maximum . 
value, of I (which is IMAX) is MSW + 1. IMAX is limited to 50 in the 
program, so the maximum number of vortices, spanwise, on the wing is 
limited to -49 The last value of Y to be entered, Y(IMAX), must be 
equar to the value of the semispan; that is, Y(IMAX) = SSPAN. ' 

Item 7 

This is the first optional set of input necessary only if. a flap 
is presented (MFLAP = 1). The quantities required are the distances from 
the plane of. symmetry to the .outboard trailing legs of each chordwise 
row of vortices oh the flap. The trailing legs lie in planes parallel . 
to the plane of symmetry (X-Z plane) . These positive input, quantites 
are dimensional spanwise distances which should have the same units as 
the wing and flap semispan and chord input values. All distances are, 
input as .positive quantities., The input ..starts at the plane, of symmetry 
for a flap with its inboard chord lying in that plane. For a. partial span 
flap with rts .inboard- chord not in the. plane of symmetry, the input starts 
with the spanwise, distance ..,fr.om .the . symmetry p.lane to the inboard 
chord of the flap. An index value of . IF = 1 is assigned to the 
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flap vortexvitr.ailing legs either in the plane of. symmetry with spanwise 
location'C'YF.dF. = 1) = 0.0 or*in a.plane parallel to that plane with, 
spanwise ^location YF(IF = l)i ^ 0.0. One of these is the first quantity 
on the -fir St: card for. this item. The .second quantity is the distance, fr.pm^ 
the symmetry plane to the outboard trailing legs of the innermost row. .of- -. ^ 
horseshoe vortices on the flap. 

Since th^^e^ MSF vortices, spanwise, on the flap,, the maxim\im 
value of IF (which is IFMAX) is MSF 1. IFMAX is limited to 50 in the 
program,, ;So^ the maximum nu^er of vortices, spanwise, on the flap is 
limited..to 49.,^ The last value of YF to be entered, YF(IF^X) , .must equal 
the value of the fla.p semispan; that is, YF(IMAX) = FSSPAN. 

If -.no flap .is present (MFLAP = 0) , no cards are required' for ,r.-/.r.- 

Item 7. 't ;.. 

Item 8 ' . o 

The card pf this input contains the coordinates of the center .of 
moments. These are dimensional quantities, whose units should be 

: jr - . • ■■ ^ ■ . 1 ..f , • ■ . ; ■ • 

consistent with those of the wing-flap dimensions and whose signs must 

be consistent with the wing coordinate system. The Y coordinate, 

YM, must be input as zero. ’ ' 

Item 9 .... 

This optional set of input is necessary only if the wing has camber 
and twist (ALPHLC = 1.0). The specification of the vortex-lattice . through 
Item 5 fixes the layout of the area elements on both wing and flap in 
their respective chordal planes. In particular, the chordwise specifi- 
cation allows the a priori determination of the chordwise location of 
control' points since they hre given by the midpoint of the 3/4 chord 
of each area element. This is done in a wing-flap cross section 
(parallel to the X-Z plane) . The quantities specified in this set 
of cards are the -tangents of the local angles of attack, ALPHAL, of the 
cambered and twisted wihg mean surface measured in the streamwise direction 
at each control point relative to the wing coordinate system. The first 
card in this item contains these values for the chordwise row of elemental 
panels nearest the root chord, starting with the element nearest the 
leading edge. In the event that there are more than eight . chordwise 
elements on the wing, the second card would have the values for the ninth; 



tenth, etc./ elements in that first row. Otherwise, the second card has 
the values for the chordwise row next outboard of the first row, and so 
on. The ALPHAL value for the leading edge wing area element in each 
chordwise row must. start on a new card. Thus, there are MSW (or possibly 
2 MSW) cards in this item. * 

The values of ALPHAL are obtained as follows. Consider the sketch 
in figure 20(a) which shows the cambered and twisted section of the 
lifting surface at some spanwise station n, for a. wing angle of attack. 
At a point P, corresponding to a control point in the wing chordal 
plane, a tangent to the wing mean surface is constructed, which makes 
an angle with the wing root chord (the X-axis). The positive sense 

of is shown. The input value required is ALPHAL = tan a^. 

Item 10 

< 

This optional set of input is required only if a flap is present, 

MFLAP = 1, and has camber, DELLC = 1.0, Item 2. The quantities specified 
in this set of cards are the local angles in' radians, DELL, of the cambered 
flap at the control points measured in the streamwise direction. The 
first card in this item contains these values for the chordwise row of 
area elements on the flap nearest the plane of symmetry, starting with 
the area element nearest the flap leading edge. If there are more than 
eight chordwise elements on the flap, the second card has the values for 
the ninth, tenth, etc., elements in the first row. Otherwise the second 
card has the values for the chordwise row next outboard of the first row, 
and so on. The DELL value for the leading edge flap area element in 

each chordwise row must start on a new. card. Therefore, there are MSF 

* 

(or possibly 2 MSF) cards in this item. 

• • . t 

The values of DELL are obtained as' follows. First the case of a 
single flap with camber will be discussed; then the case of multiple 
flaps idealized as a single flap with camber will be treated. The top 
half of figure 20(b) shows the former and the bottom half the latter. 

Both are in combination with an un swept, untwisted, untapered wing with 
dihedral which has its trailing edge cut off to accommodate the trailing 
edge flaps. The dashed lines represent the thickness envelopes of the 
wing and flap. Consider the single flap case. At a point P, corres- 
ponding to' a control point in the flap chordal plane, a tangent to the 
flap mean surface is constructed, which makes a positive angle with 
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the flap root chord as shown,. .The input value required., is .DELL = 6 ^, 
radians. .Cons,ider the multiple flap .case , next. Connect the leading edge 
of the flap. component nearest .the wing trailing edge to the trailing edge 
of -the. aft ,f lap component. This line is the local .chord of the idealized 


flap representing the multiple flaps system. This local chord also lies, 
in the chordal plane of the idealized flap. The chordal plane also 
contains the’ root" ctiord of the’’ idealized flap. At a point. P, corresponding 
to a control point’ih the idealized flap^ chordal plane, a tangent to 'the 
mean surface of' tfie'flap component is Srawn, which makes positive angle' 
with the flap roof chord as shown. The input value required is ' ' 

DELL = 'iradi'an's. ' ' ‘ 

If no flap is presented (MFLAP ,=. 0) or the flap does not haVe camber 
(DELLC = 0.0), no cards are required for Item 10. 


Item 11 

■ ■ -vc : 'r . 

This opti 9 nal .set of data is required only if induced velocities are 

to. be computed i at field points adjacent to the wing-flap {.MMM /_ 0 . in 
Item 2)., The number of cards in this item is MMM. Each card has X, Y, 
and Z coordinates of a, point where the induced velocities are desired. 

The points need not be in any particular order, although an order, might 
be dictated, by the subsequent use of the, output in, for instance, an 
engine-wing-flaP|. interference calculation. If no induced . velocities are 
to be computed (MMM = .0» Item 2), no cards are required for Item 11. 

Item 12 ;..... 

• The single card of this item contains several quantities':^' The ' 
first is the flap deflection angle, DElib, which must be measured perpen- 
dicular to the flap hinge line. If only the streamwise flap angle DLXD 
is known, angle- DELD may be estimated through the average sweep, angle .of 
the flap; '. ' 

.tan DELD. tan DLXD) /cps.^ (26) 

Control integer variables KEI and KCPgovern: options ; regarding the method'., 
of input of the' externally induced velocities and the output of control 
points associated with the vortex lattice, respectively. Control variable 
NRHS equals the number of cases'=.to be run successively for a given wing 



flap combination without recalculating the influence coefficient matrix. 
For each case, an angle of attack and a set of induced Velocities (if 
applicable) will be specified in Items 13 and 14. A maximum of 10 cases 
can be treated in this manner. 

Item, 13 V. 

This item .specifies the wing? angle of attack, ALPHAD, for each of 
the NRHS cases specified in Item*12 above. 

Item i4 ''~ ' 

The input quantities in this optional item are externally induced 
perturbation velocities at. the control points on the left wing panel and 
flap,. Cards with this input are required only if KEI of Item 12 is 

i-'-i . 

different: from zero,. For each of the cases specified in Item 12, these 
velocities are read in via cards if KEI = 5; if KEI =8 a data set 
generated by the jet-wake program is called arid velocities are read in 
frorn , it .. The signs of the, perturbation velocity components must be 
consistent with the wing root chord coordinate system. 

The externally induced perturbation velocities must be input in the 
same order, as the control point layout: the first is nearest the wing 

leading edge .and root chord, the succeeding points proceed aft chordwise 
to the wing trailihg edge, then from the leading edge of the next out- 
board chordwise row aft towards the trailing edge of this row and so 
forth. The last point on, the wing is the control point nearest the tip 
and wing trailing edge. There are M cards for the wing, where 
M = MSW X NCW._ On the flap, if present, the first point is nearest the 
. flap leading edge and inboard chord; the succeeding points proceed aft 
chordwise to the flap trailing edge and then from the leading edge of the 
next outboard chordwise row aft towards the flap trailing edge and so on. 
As on the wing, the last point is the control point nearest the flap 
outboard chord and- flap trailing edge. 

Again, if no external velocities are considered (KEI = 0) no cards 
are required for this item. 

This completes the description of the input and its .preparation. 

The program variables with algebraic symbol and comments are listed 
below in the order in which they appear in the input deck. 
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Program 

Variable 


Comment 


Algebraic ‘ Symbol 
(if applicable) ■ 

M ■ M ■ 

MF MF 

J 

‘ -i ^ aSi 'ioJ , C ' ... 


number of control points on wing 
M = NCW X MSW 

number of control points on flap 
MF = NCF X MSf 

running index of control points on 
wing- 1 < J < M, also used as over-l‘ 
all running index 1 < J < M + MF 
' "in Item' 13 of the input and also 
i in- the output . , ■' v; •'V 


JF 

N 


Item 1 


■ BiJ 


running index of control points on 
flap 1 < JF < MF ■ 

' running index of successive cases 
‘ ' -1 ;< N c NRHS 

' any alphanumeric inforfnation may be 
■ put on this card for ■identifiicatiori •' 
of the calculation' 


Item 2 
ALPHLC 

DELLC 

* Oi 

MMM 


MFLAP 


MFSPEC 


Item 3 
PSIWLE 


ALPHLC = O'.O; 

and twist. . 

ALPHLC = 1.0: 
twist 

DELLC = 0.0; flap without camber 
DELLC = 1.0: flap with camber 

number of locations in vicinity of 
wing-flap at which wing-flap induced 
velocities are determined (MMM 50) . 
If MMM = 0, induced velocities are 
not. calculated" 

MFLAP = 0; .flap not present, i.e., 
wing only 

MFLAP = 1; . flap included 

^MFSPEC = 0: flap root chord CRF 

specified for undeflected flap 
in Item 4 . , 

y MFSPEC =1; flap root chord CRF 
\ specified for deflected flap in 
Item 4.- This differentiation is 
applicable to swept wing-flap com- 
V. binations only 


wing leading-edge sweep angle measured 
”le in the wing planform, positive for 

sweep back,' deg. 





wing without camber 
wing with camber and 
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Progrcun 

Variable 

Algebraic Symbol 
(if applicable) 

PSIWTE 

’p . '=■■■• 

^ w 

TE 

CRW 

■ c 

SSPAN 

b/c 

PHiD' 


Item 4 


PSIFLE 

'i'f 


^LE 

; f 


V • 


PSIFTE 

. . . i ' • 

TE 

CRF , 

. .. . ( - 'Cf 

FSSPAN 


XF 


ZF . ■ ; 

, , ■ ; . i:: 

Item 5 ’• 

' ■ 3 


NCW 


Comment 


wing trailing-edge sweep angle 
measured, in -the wing planform, 
positive for sweep back, degrees- 
wing root chord, dimensional 

J. 

wing semispan, dimensional 

- ;I)y 

wing dihedral, positive for wing tips 
above root chord, degrees 


flap leading-edge sweep angle measured 
in the wing planform for the un- 
deflected flap,' positive for sweep 
, back, degrees (this angle normally 
equals ) 

TE, 

flap trailing-edge sweep angle 
measured in the wing planform for 
the undeflected flap, positive for.';' 
sweep back, degrees 

flap root chord measured in the plane 
of symmetry, dimensional. According 
to Item 2; if MFSPEC = 0, CRF 
specified for undeflected flap, ifi 
MFSPEC =1, CRF specified for de-. 

-fleeted flap. See the , earlier ' 
discussion under Item 4 

flap semispan defined as the distance 
from the plane of symmetry to the 

-flap outboard span, dimensional 

X-coordinate in wing coordinate system 
of the leading edge of the flap root 
chord, dimensional 

. . Z-coordinate in wing coordinate system 
of the leading edge of the flap root 
chord, dimensional 

number of chordwise vortices on wing, 

1 < NCW < 10 i-.: . ' 


MSW 


number of spanwise vortices on left 
. wing panel, 1 < MSW ^49 
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Program 

Variable 


Algebraic Symbol 
(if applicable) 


Comment 


NCF 

MSF 

Item 6 
Y(I) 

Item 7 
YF(IF) 


Item 8 
XM 

YM > 

ZM J 

Item 9 

ALPHAL(J) 


Item 10 
DELL(JF) 


Item 11 

.PMX(MM)'^. 
PMY(MM) > 

. PMZ (MM) J 


number of chordwise vortices on flap, 
1 < NCF 1 10 

number of spanwise vortices on left 
flap 1 < MSF <49 , 


Y (1) ,Y (2) , . . . , distance parallel to Y-axis from 

. Y(IMAX) -plane of symmetry to outboard 

. trailing leg of I'th wing horseshoe 

vortex, dimensional 
(1 < I < IMAX, IMAX =MSW +1) 


YF (1) ,YF (2) , . . . , . distance parallel to Y-axis from 

YF(IFMAX) . , plane of symmetry to outboard 

trailing leg of IF'th flap horseshoe 
vortex, dimensional (1 £ IF £ IFMAX, 

' IFMAX = MSF +1). If MFLAP = 0, 

. 'no input cards necessary 


I . • -coordinates of pitching-moment center 

in wing coordinate system, dimensional 


tan Uj^d) , tan , tangent of local angle of wing. mean 

. surface at J'th control point due to 

'*■' wing twist and camber. See figure 

20 for sign convention. 

1 _< J £ M, M < 150. (If ALPHLC = 0.0, 
no input cards are necessary) 


6 (1) , 6 (2) , ) local angle in radians of flap mean 

r ,„p. surface at JF'th control point due 

’A ' . . to flap camber. See figure 20 for 

sign convention. 1 £ JF ^ MF, 

MF < 100. (If DELLC = 0 . 0, no input , 
cards necessary) 


. ' coordinates of locations at which wing- 
flap induced velocities are computed. 

1 _< MM £ MMM, MMM _< 50. If MMM = 0, 
no input cards are required. 
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Program 

Variable 


Algebraic Symbol 
(if applicable) 


, Comment 


Item 12 


DELD 


flap deflection angle measured perpen- 
l^dicular to hingeline, positive down- 
, wards, degrees, see figure 1 

• KEI . . . 

, '..1 V - 

‘ . • V 

• . . , -• ‘ • 

• ”V:’' < 

''KEI = 0; no externally induced 
{velocities 

KEI = 5: externally induced velocities 

; read in via cards 

1 KEI > 6: externally induced velocities 

1 read in from a data set. 

V, (7 < KEI < 98) 

KCP 

... .. 1 

'”kCP = 0: control point coordinates in 

program output 

kCP > 6: - control point coordinates 
'in program output and data set. 

(7 < KCP < 98) 

NOTE,: KEI ^ KCP , 

■NRHS- ' ■ 

■ J. 

number of successive cases'^ to be ' 
treated for ; the same wing 3 -flap: i 

configuration. 1 < NRHS < 10 

Item 13 


; _ ■ ' ■O"'. 

ALPHAD(N) 

!«(!) ,0.(2) , , 
a (NRHS) 

wing root chord angle of attack 
relative to free, stream,, degrees.,-., 
see figure 1. Tl < N < NRHS) 

Item 14 
1 

UEI(J,N) 
VEI(J,N) \ 
WEI(J,N) J 

u. ' v'. "N 

..,^(1,N) ,^(1,N) , 

w. 

- ^(1,N) , . . . 

t ) 

U . V . 

-^(M,N).,-^(M,N) , 

this input is read in only^ if KEI ^ 0 . 
The first card' contains any alphanu- 
meric information for identification 
of these data. These are externally 
induced velocity- components at wing 
control points J, 1 < J < M, M<15p. 


w. 

I 

i 
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Program Algebraic Symbol 

Variable (if applicable) Comment 


this input required only if MFLAP = 1 
I and KEI ^ Q. These are- externally 
■ induced velocity components, at flap 
\ control points ' J. , , 

M+1 £ M+MF (NOTE: M £ 150, “ ’ . 

^ 150 but M+MF £.220.) .For 
these data, if KEI =5, input via 
cards; if KEI = 8, input via data 
set. There will be N sets of 
these data for the N successive 
cases. 1 < N < NRHS . 


Samples of two input decks are shown in figure 21 . illustrating the 
options concerning externally induced perturbation velocities and’if low- • 
field determination. The first input deck shown is for a swept wing with 
full span, triple . slotted flaps and without externally, induced velocities. 
The configuration is shown in figure 22... The. vortex lattice on the 'wing ■ 
is made up of 20 spanwise rows with .4 vortices on the.chord. On thefflap 
there are 20 spanwise rows. with 5 vortices on the chord. The 30® swept-r • 
back wing is untapeired and has zero dihedral. ■ The full span, . -triple 
slotted flap system is idealized to a single flap /.with camber,, as shown 
in figure 22(c). One of . the desired results of the calculation 'is the. , 
perturbation flow field determined at eight specified field points , for ; 0° 
angle of attack. The . points lie along a line colinear with a typical cenr- 
terline location of a turbofan engine that could be hung under the wing . 

The second input deck shown in figure. '21 concerns the same configu- 
ration, but includes perturbation velocities induced by a. high-bypass-ratio 
turbofan engine. The determination of these velocities is described in - 
the jet wake section. 





Description of Output 


This section describes the output from the wing-flap program. In the 
following, all items of output are enumerated and the contents briefly' 
^described. . Two sample outputs are shown in figure 23. r- . . r ... 

The first page identifies the run and prints the wing-flap" geometry" 
data, vortex-lattice layout and the pitching moment center'Ss' specified in 
the input. The flap deflection angle', DELD, is the specif ied' arigle"' perpen- 
dicular to the hingeline whereas the streamwise flap dSfl'ection' angie,' ' 
DiiXD, ’is calculated by the program. All length dimensions' in ' file 'output 
are the same as in input. ... . 

The second ■ page shows the wing angle of attack and' €he identification 
•~6f the set- of externally induced velocities (when applickble)' for thie flow 
condition ’case under consideration. Both are specified in the input. in 
the first sample case, figure 23(a), the flow conditions only include the 
wing angle of attack. In the second case, the' wing angle of attack and 
identif ica'tion of a set of induced velocities are printed under the flow 
condition heading. ■ . . 

. . * ■ ' ' } ‘ ■■■...• i:: '■■■' " ' 

On the next pages of the outp^ut,. program-computed control point 
coordinates are listed for the wing and the flap together with .mean . 
surface streamwise slopes specified in input as tangents at the contro.l 
points. The coordinate system associated with the control point locations 
is the wing coordinate system shown in figure 2. This part of the output 
. also prints the externally induced perturbation velpcities. In the first 
sample case, figure 23(a), these velocities appear as zeros. In the 
second case, figure 23(b), non-zero values were read in. Ihe order of the 
output in this item and the next is as follows. J = 1 corresponds to 
the area element oh the left wing panel closest to the wing root chord 
and nearest the wing leading edge. This starts the first chordwise row. 

The sequence proceeds towards the' wing trailing edge ( J = "nCW) and then 
back up to the wing leading edge (J = NCW + 1) for the next chordwise 
row. This process continues along the semispan for each' chordwise row of 
area elements on the wing until the wing tip is reached. There, the aft 
element of the last chordwise row on the wing is located closest to the 
wing tip and nearest the wing trailing edge. On the flap, the sequence 
starts in a manner analogous to the wing with- the first elernent^ (J = M + 1) 
closest to the inboard span of the flap and nearest the flap leading edge, 
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The process. then continues towards -the outboard tip of the flap. The aft 
area . element (J .= M + MF) of .the last chordwise row on the flap is located 
closest to the flap outboard . span and nearest the flap trailing edge. 

The next item starts on a new page and -provides information concerning 
the computed horseshoe vortex characteristics . This output includes bound 
„leg midppint^coordinates, bound leg sweep angles and horseshoe vortex half- 
widths, tpgeibher , with the calculated vortex strengths . Wing angle of attack, 
ALPHAD, .and , flap deflection angle, .DELD, ape again listed in the heading of 
this. output. . The output sequence is described above and the coordinates., 
are expressed in the. wing root chord coordinate system of figure. . 2 ., ■' 

The fpllowingrnew page contains. aerodynamic performance parameters 
computed, by the. .program. The wing and- flap .lift coefficients, and the sum 
of the two, C-,, are referenced with respect .to the. wing planform area/ -SREF. 
The pitching moment coefficient, is referenced with respect td.SREF.and 

the wing ayerage chord, CAVE. Both reference quantities are listed in, this 
output also,'., The spanload coefficient, c.-c/c^c , is referenced with , 
respect tp the, wing lift cpefficient and CAVE for spanloads on the wing,. 
Spanloads on the flap are referenced with respect to the flap lift coeffi- 
cient and CAVE. These values Pf spanloads are listed for each chordwise 
row of area ’elements Pn the wing and flap starting nearest 'the wing root 
chord and flap inboard span respectively. The last line provides a break- 
■’down of the pitching moment and induced drag in, terms of the wing and flap 
contributions. ' The total induced drag, C^, is also listed by itself' and 
in combination with the total lift', C^ . Both parameters are calculated on 
the basis of equations (9) and (10). • . 

The last and optional output item is called for by MMM 7 ^ 0 in Item 2 
of the input and starts- on a new page. This output includes coordinates of 
the locations at which the components of wing-flap induced velocities are 
computed and the induced velocity cpmppnents. The, sequence of this output 
is dictated by the sequence of. the specified field point coordinates in 
Item 11 of the input. 

: "I < ■ . . I ■ ■ ■ ' ' ■ 

Program Listing 

The wing-, flap vortex-lattice program is written in Fortran. IV 
language for .the' IBM 360/67 computer... The cpmputer consists of- the main 
program and three subroutines. - . . . . -• i ■ - ' 
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pi-dciraicv 

MAINPl 

LOADI 

INFWW. 

invers 




Tdent i £ ication 


53 


WFOl 

VTE02 
■- WF03 , 
WF04 

r'/ 


65 
73 
75 ■ 




I 
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nnonr^nno r\ n o n n r> n n n nnnnnn 


WFOl 001 
WFOl 002 
WFOl 003 
WFOl 004 
WFOl 005 
WFOl 006 
WFOl 007 
WFOl 008 
WFOl 009 
WFOl 010 
WFOl Oil 
WFOl 012 

■ • niMFNSION r-„ V. UI ( 50) .VI ( 50) .W1 ( 50) . FVN ( 220 .WFOl .013 

1?50) .fUW( 2) .FVW( 2) »FWW(2) .FUF(2) »FVF( 2) .FWFI2 ) WFOl' 014 

WFOl 015 

• DIMFnSION PTlXI 150) .pTlY( 150) ;pTLZ( 150) »PVX( 150) .PCX ( 150) . PVY ( 150 ) WFOl' 016 
1 .PVZ ( 150 ) .PVFXC 150) .PCFXC 150) .PVFY 1 1 50 ) .PVFZ ( 1 50 ) .PCFZ( 150) .PTLFXfWFOl 017 
21 50 ) .PTlFY( 150) .PTlFZ( 150) .PMX(50) .PMY(50) .PMZ( 50) WFOl 018 

WFOl 019 

DIMFNSION SWPVVPI 150) .SWPVVFI 150) .SWPC( 10) .SWPCFl 10) .SWPVI 150) . WFOl 020 
1SF( 150) .SW( 150) .Y( 50) . YF ( 50 ) , YFC ( 50 ) .YLOCI 50 ) .YlOCF( 50) .SUMY (50) . WFOl 021 
2SUMYFI50) »CHL0CP(50) .FCHLOR(50) WFOl 022 

WFOl 023 


this PROGRAM CALLS FOR SUBROUTINES LOAOl . INFWW. INVERS 
WING-FLAP vortex LATTICE PROGRAM 

DIMFNSION SL0C0(50) .SECLI F ( 50 ) . FSLDCO ( 50 ) .FECLIFC 50) . 

1TiTuF( 10.20) . Talk ( 20) .ALPHALI 150) .DELL( 150) 

, DIMENSION CIR( 220.10) .UFl ( 220 . 1 0 ) . VE I ( 220 . 10 ) .WEI ( 220.10) . 
i ALPHADI 10 ) . alpha! 10) . V’-', 


dimension YWW( 2) .YWF( 2 ) .YWFP(2) »YFW( 2) .YFF( 2) »YFFP( 2 ) .YWM( 2) .YFM( 2WF01 024 
1 I .YfMPI 2 ) WFOl 025 

WFOl 026 
WFOl 027 

COMMON CtR.SUMLlF.FUMLIF.CLToT.TOTl^OM.SLDCO.SECLlF. FSLDCO. FECLIF WFOl 028 

WFOl 029 

COMMON WMOM.FMOM.SUMORG.FUMDRG.DRGToT.CDOCLS WFOl 030 

WFOl 031 

COMMON PTLX.PT) Y.PTlZ.PVX. PVY. PVZ. PVFX. PVFY. PVFZ. PTLFX.PTLFY.PTlFZWFOI 032 

WFOl 033 

COMMON SWPWLF.SWPWTE.SWPFLF.SWPFTE.SWPVVP.SWPVVF.SF.SW.Y.YF WFOl 034 

WFOl 035 


COMMON CRW.SSPAN.CRF.FSSPAN.PHI »PH I F .CSPHI F .CSPH I . ALPHA »DLX .COS+LXWFOl 
1 .S1 NDlX.SREF.CAVE.XM.Zm.SPHIF.SPHI WFOl 

WFOl 

COMMON NCW.M.MPI.MF.MPMF.IFMAX.IMAX.NCF.MFLAP WFOl 

WFOl 

COMMON AE.YFC.TANTH8.TANTH7 WFOl 

WFOl 

COMMON UEI.VEI.WEI WFOl 

WFOl 

COMMON/INF/BOT WFOl 

WF^l 

WFOl 

WFOl 

WFOl 

1 format ( 1H1 .27X.32HHORSESHOE VORTEX CHARACTER ISTICS//10X .17HB0UNDLWF01 
lEG MIDP0INT.35X.24HV0RTEX STRENGTHS .GAMMA/ V/ 1 3X . 1 IHCOORD I NATES/3X .WFOl 
21HJ.5X.1 HX.pX. 1HY.9X. 1hZ.5X. IOhSWEEP.DEG. . IX . 9HSEM I W 1 DTH .7X . 7HALPHWF01 


3AD=.F8.4.1H..5HDELD=.F8.4/2X,13HWING VORTICES/) 

6 format (715) 

(8F10.5) 

(4X.23HTE SWEEP. DFG. .F8 . 4 .7X .F8 .4 ) 

( 14. 1X.F9.4.2X.F9,4.2X.F8.4.2X.F8.4.2X.F8.4.12X.F8.4) 
(IHl. 20A4/) 


7 format 

8 format 

13 format 

14 format 

15 FORMAT(20A4) 

17 format ( IHl. 25H 

18 FORMAT! /9X.25HTOTAL 
IFFICIFNT.CM/) 

19 format ( 10X.F8.4.30X.F8.4) 
21 FORMAT { 4X.23HDIHEDRAL .DEG. 


determinant is ZERO) 

lift coefficient. cl. 10X.30HPITCH1NG MOMENT 


.F8.4.7X.F8.4) 


WFOl 

WFOl 

WFOl 

WFOl 

WFOl 

WFOl 

WFOl 

WFOl 

COEWFOl 

WFOl 

WFOl 

WFOl 


036 

037 

038 

039 

040 

041 

042 

043 

044 

045 

046 

047 

048 

049 

050 

051 

052 

053 

054 

055 

056 

057 

058 
059. 
060 
061 
062 

063 

064 
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r> n n n n r> o’ ooo 


22 

2^ 

24 

2,S 

28 


format 

format 

format 

format 

FORMAT 


(4X.23HCHORO AT WING ROOT «F8 .4.7X.F8 .4 ) 

t3XtI3»7XtF8»4t6XtF8«4»10X«F8«4»15X»F8.4) 

( 3X.4HWING/) 

(4Xt23HSEMISPAN tFS . 4» 7X • F8 .4/ ) 


WFOl 

WFOl 

WFOl 

WFOl 


( /24Xt20HREFERENCE QUANT I T I ES//5X . 1 IHWI NG SPAN»B *4X »23HWINGWF01 
■ 1 PLANFORM AREA#SREF»4X,19HWING AVE.CH0RD»CAVE) WFOl 

29 format (7XtF8.4«8X.F12.4»14X.FB.4) WFOl 

30 format (4X.23HLE SWEEP»OEG. »F8 .4.7X .F8.4 ) WFOl 

31 format ( /4X.29HUN0EFLECTE0 FLAP I NBOARO SPAN* 8X .F8 .4 ) ; ' WFOl 

32 format (2F5.1 *315) WFOl 

33 FORMAT (3F10.3) , . WFOl 

34 format ( 1H1.4X.36HCONTROL POINT COORDINATES AND SLOPES. llX. WFOl 

- .V29HEXTERNALLY INDUCED VELOCITIES! ; ^ wFOl 

35 format ( I4.1X.F9.4»2X.F9.4»2X.F8,4.2X.F8.4.6X.F9.5.1X.F9i5ilX»F9,5WF01 

1-.1X.F9.4.2X.F9.4.2X.F8.4) --WFOl 

36 FORMAT ( IHl .9X.66HVEL0CITIES INDUCED AT SPECIFIED POINTS rN 'THE -VIWFOl 

ICINITY OF The WING//3X,1HN.6X.1HX.9X»1HY,9X.1HZ.13X.3HU/V.7X*3HV/VWF01 
2.7X.3HW/V/) ■ WFOl 

37 coRMAT f 4X.30HUN0EFLFCTED FLAP OUTBOARD SPAN*7X .F8.4// ) WFOl 

38 format (4X.30HPITCHING MOMENT CENTER . *2X *F8. 4.2X » F8 i4i2X .F8WF01 

•1.4) r -^1 WFOl 

39 format ( 2X.I2»3X.F8.4»2X.F8.4.2X.F8.4»7X,F8,5*2X.F8.5»2X,F8.5) WFOl 

43 FORMAT (3E13.6) . .’ WFOl 

47 format (/2X.19HWING CONTROL POINTS/) . . WFOl 

61 format { 34X.12HMEAN SURFACE/ 3X ,1HJ *5X *1HX *9X *1HY *9X .1HZ.7X .5HSL0PEWF01 

1 .10X.3HU/V»7X*3HV/V.7X*3HW/V) • ; ■ WFOl 

58’FORMAT (4X.23HCH0R0WISE vortices *2X , 13 . 12X . 1 3 ) WFOl 

59 format ( //34X. 13HGEOMETRY DATA//28X .4HWING. 1 1 X .4HFLAP/ ) . •■,iV WFOl 

60 format (4X.23HSPANWISE VORTICES » 2X . 1 3* 1 2X . 1 3 ) ' ' • WFOl 

64 FORMAT (/3X.4HFLAP) WFOl 

66 FORMAT(/24X.26hSPANWiSf LOAD 01 STr IBUTION// 2X »7HST AT ION . 5X *7HY/ ( B/WFOl 

12 ) *5X»13HL0CAL CHORD.C *6X . 12HCL*C/CL*CAVE . 14X . 10HCL*C/ ( 2*B ) // ) : WFOl 

66 format (4X.27HANGLE OF ATTACK. ALPHA .DEG« . 15X.F8.4// ) . WFOl 

67 format (//4X.27HFLAP ANGLE. DELO’DEG. .15X.F8.4)’ WFOl 

68 format (4X.37HCALC, STREAMWISE FLAP ANGLE .OLXD * DEG. . 5X .F8. 4 ) WFOl 

72 format ( 1H1.15X.39HAERODYNAMIC LOADING RESULTS FOR ALPHA =.F10.5. WFOl 


11X.4HDEG. 

1OEFFIC1ENT.20X.21HFLAP LIFT COEFFICIENT/) 

73 FORMAT (//39X.21HX ' Y Z) 

74 FORMAT (/2X.19HFLAP CONTROL POINTS) 

76 FORMAT (/2X.13HFLAP VORTICES/) 

78 FORMAT(TH1.20X.26HFLOW CONDITIONS FOR, CASE 

79 format ( /4X.63HC00RDS. OF ROOTCHORD NOSE OF 
1 OF SYMMETRY/39X. 


81 

83 


format 

format 


///9X.21HW1NG LIFT CWFOl 
. WFOl 

WFOl 
. WFOl 
■ WFOl 
. WFOl' 
PLANEWFOl. 
WFOl 

21HX Z/36X.F8.4.12X.F8.4) . . WFOl 

( 1F10.5 .3 1 10 ) WFOl 

( ///2X.7HCM.WI NG «8X .7HCM* FLAP. 8X.7HCD. wing. 8X.7HCD* FLAP. 9X. WFOl 


.13//) • 

FLAP extended 


TO 


12HCD.11X.8HC0/CL*CL/) 

84 FORMAT (F10.5.5X.F10.5.5X.F10.5.5X.F10,5.5X,F10.5.5X.Fl6.5) 

85 format (////20A4//) 

INITIALIZE 

DO 3008 J=1.150 
3008 ALPHALl J)=0.0 

00 3080 JF=1.100 
3080 ,DELL( JF) =0.0 

1010 READ (5.15) Talk 

control VARIABLES READ IN 

RFAD (5.32) ALPHLC.DELLC.MMM.MFLAP.MFSPEC 

:WING GEOMETRY SPECIFIED IN WING PLATFORM PLANE 


WFOl 

WFOl 

WFOl 

WFOl 

WFOl 

WFOl 

WFOl 

WFOl 

WFOl 

WFOl 

WFOl 

WFOl 

WFOl 

WFOl 

WFOl 

WFOl 

WFOl 

WFOl 

WFOl 


065 

066 

067 

068 

069 

070 

071 

072 

073 

074 

075 

076 

077 

078 

079 

080 
081 
082 

083 

084 

085 

086 

087 

088 

089 

090 

091 

092 

093 

094 

095 

096 

097 

098 

099 

100 

101 

102 

103 

104 

105 
• 106 

107 

108 

109 

110 
111 
112 

113 

114 

115 

116 

117 

118 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 
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READ (5»7) PSlWtE.pSlWTE*CRW.SSPAN*PHID 
(?0T= SSPAN 

, FLAP geometry specified IN UNOEFLECTED FLAP PLANFORM PLANE 
\UN0EFLECTE0 flap PLANFORM PLANE -IS THE WING PLANFORM PLANE 

READ (5t7) PSlFLE.PSIFTE.CRF.FSSPAN.XFtZF^ 

SPECIFY vortex LATTICE ON WING AND FLAP 

■read (5.61 NCW.MSW.NCF.MSF 

■ 1 'IMAX=MSW+1 • ; - • ■ 

I FMAX=MSF+:1' . - -• . 

0 ?. ;m=msw*ncw • 

; •MF=mSF»NCF i '■ ' •, ■ i 

.! MPlsMtlATw 
•-MPMF = M+MF . 

. ' lay OUT.'WING VORTEX TAI LS ALONG -WI NG :.SEMI SPAN 
‘•'POSITIVE VALUES FOR LEFT PANEL 

' READ (5.7) (Y(I).I=l.IMAX) 

LAT-OUT flap VORTEX TAILS ALONG-UNDEFLEGTED .FLAP SEMI SPAN 
POSITIVE VALUES FOR LEFT PANEL , ■ ' ' 

IF(MFLAP.EO.O) GO TO-9912 -. 

READ (5«7) (YF( 1F1,IF*1»IFMAX» 

9912 CONTINUE 

SPECIFY moment CENTER. 

•' READ (5.7) Xm.YM.ZM. 

INPUT -LOCAL WING ANGLES DUE TO. WING CAMBER AND TWIST 

IF ( ALPhLC.EO.0,0) go TO lOOl , . . . 

■ MN = 0 '' 

DO 9910 JNW=1.m.NCW 

MN = MN-t-NCW ’ ' 

9910 READ (5.7) ( ALPHAL ( J ) . J=JNW »MN) 

1001 CONTINUE - . . 

INPUT LOCAL flap ANGLES DUE TO FLAP CAMBER 

IF(MFLAP.EO.O) GO TO 1002 ' ' • 

IE (DELLC.EQ.O.O) GO TO 1002 
MFN=0 , •• • 

DO 9911 JNF=1 .MF.NCF 
MFN=MFN+NCF 
,9911 READ (5. 7) ( DELL < JF ) . JF= JNF.MFN » 

'1002 CONTINUE 

'c ■ 

c DTR=P1/180 ' • 

DTR=0. 01745329 
C 

SPAN=2.0*SSPAN 
• PHI= PH1D*0TR 
SPH!=S1N(PHI ) • 

• CSPhI=COS (PHI) 

TANPHI=TAN(PHI ) . 

SWPWlE=TAN (PSIWLE*DTR) 

5WPWTE = TAN (PSIWTE*DTR) 


WFOl 

131 

WFOl 

132 

WFOl 

133 

WFOl 

134 

WFOl 

135 

WFOl 

136 

WFOl 

137 

WFOl 

138 

WFOl 

139 

WFOl 

140 

WFOl 

141 

WFOl 

142 

WFOl 

143 

WFOl 

144 

WFOl 

145 

WFOl 

146 

WFOl 

147 

-WFOl 

148 

WFOl 

149 

WFOl 

150 

• WFOl 

151 

WFOl 

152 

WFOl 

153 

WFOl 

154 

WFOl 

155 

WFOl 

156 

WFOl 

157 

WFOl 

156 

WFOl 

159 

WFOl 

160 

WFOl 

161 

WFOl 

162 

WFOl 

163 

WFOl. 

164 

WFOl 

165 

' WFOl 

166 

WFOl 

167 

WFOl 

168 

WFOl 

169 

WFOl 

170 

WFOl 

171 

WFOl 

172 

WFOl 

173 

WFOl 

174 

WFOl 

175 

WFOl 

176 

WFOl 

177 

WFOl 

178 

WFOl 

179 

WFOl 

180 

WFOl 

181 

ViFOl 

182 

WFOl 

183 

WFOl 

184 

WFOl 

185 

WFOl 

186 

WFOl 

187 

WFOl 

188 

WFOl 

189 

WFOl 

190 

WFOl 

191 

WFOl 

192 

WFOl 

193 

WFOl 

1-94 

WFOl 

195 
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. ■ -WFOl 196 

flap sweeps are specified for the UNDEFCECTED flap and measured WFOl 197 

IN THE. WINQ ;PLANFbRM PLANE • . WFQl. 19B 

‘ • ■ ■ - • ■- '■ y^Sl 199 

SWPFLE=TAN (PSIFLE*DTR) • *■ : WFOl 200 

SWPFTE=TAN (PSIFTE#DTR) WFOl 201 

/ ^ WFOl 202 

COMPUTE WING L.E. AND WING T.E. SWEEPS IN ThE WING CHORDAL PLANE WFOl 203 

V ■ --.H! :.WF01 20a 

5WPWlV=SWPWLE*CSPHI WFOl 205 

SWPWTV»SWPWTE*CSPHI ^ iWFOl 206 

WTV=ATAN(SWPWTV) * r)- "?. l -- V iWFOl 207 

SINWTVbSINIWTV) WFOl 208 

COSWTV=COS(WTV) - =ii,. r 'i-WFOl 209 

■CATBMT^'r ST -'jWFOl 210 

COMPUTE UNDEFLECTED FLAP T.E. SWEEP IN WING CHORDAL:. PLANE « '-Rivf?!WF01 211 

'• i . •• ' '-sATBHr iC'isT-’iWFOl 212 


SWPFTV=SWPFTE*CSPHI 

FTE=ATan(SWPFTVI 


READ IN coordinates OF POINTS AT WHICH 
INDUCED BY .WING FLAP. ARE CALCULATED 

IF(MMM.EO.O) GO TO 4000 

OEAD ( 5»33) - (PMX(MM) ♦PMY(mM) .PMZ(MM) »MM* 

^000 continue • . 


perturbation VEtdbl-T.>IES' 


ItMMM) 


'Soiq -or th'-wfOi 213 

WFOl 2 Iff 

■TsSO/^t ’:WF0i 215 

TT-fT s - WFOl 216 


•WFOl 217 
WFOl 218 
,'WFOl 219 
WFOl 220 


■READ IN certain FIXED QUANTITIES ‘ 

DELO= flap angle MEASURED PERPENDICULAR TO HINGE L INE.ROSI-T IVE 
OOWNfOEG. 

IF XEI=0 NO EXTERNALLY INDUCED velocities " ■ 

IF <EI = 5 INPUT EXTERNALLY INDUCED VELOCI T I ES : VI A ' CARDS 
IF KEI GT.6 input EXTERNALLY ' i NDUCED VELOC I T I ES VIA DATASET 
IF KCP=0 control point COORDINATES IN OUTPUr< : 

IF KCP GT.6 control POINT COORDINATES IN OUTPUT AND IN DATASET 
NRHSa number OF SUCCESSIVE CASES TO BE TREATED ' V'-s, 


READ (5.81) DELD.KEI.KCP.NRHS 


(KEI.LT.O) KEI=0 
(KCP.LT.7) KCP=0 


DO 3081 JC=1.220 
DO 3081 JV=1.230 

5081 FVN(JC.JV)= 0.0' 

DO 3082 N=1.NRHS 
DO 3082 JC=1.220 

5082 CIR( JC.N)=0.0 


DEL= 0EL0*DTR 

SINDEL=SIN(OELI 

COSdEL=COS(DEL) 

TANDEL=TAN(DEL) 


■ ■ - WFOl 256 

calculate angles THETAP necessary for THE FLAP. DEFLECTION MEaSUREDWFOI 257 
IN THE X-Z plane DLX. FLAP. DIHEDRAL PHIF. AND FLAP VORtEX LAYOUTWFOI 258 

; . - . , ^ . -WFOl 259 
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Al=COSDEL*COSWTV 

WFOl 

260 

Cl=-fCOSDEL*SlNWTV*SPHl+SlNDEL»CSPHn 

WFOl 

261 

A3=-«SINDEL*C0SVITV) 

WFOl 

262 

03=S I NDEL»S I NWtV*CSPH 1 +COSOEL*SPHI 

WFOl 

263 

C3=SINOEL*SINWTV*SPHI-COSOEL*CSPHI 

. WFOl 

269 


..WFOl 

265 

J THETAP=ARC0S( ( A3*Cl-Al*C3)/« (C3*C3+A3*A3)**0.5) ) 

WFOl 

266 

. ■ SINTHf>=. SlN^rTHETAP). . 

.. WFOl 

267 

,'v'; '.;GOST'hP= COS(THETAP) 

WFOl 

268 

G}-.-: 

•WFOl 

269 

.. PI02=PI/2 

‘ ' ■ WFOl 

270 

TO-' jc'P402= 1,57079633 

'' WFOl 

271 

■C.r. 

• ■ WFOl 

272 

theta2= pio2-thetap 

- WFOl 

273 

CiS iO -THETA7 = THETA2- PI 02+WTV-F.TE 

WFOl 

279 

as. IC'T.HETA8= PE02t.ThETA2 ■ : -i ; : . ' »• 

• .-.WFOl 

275 

ii< J'"':iTHETA9 = THETA2-t PI02-WTV) 

WFOl 

276 

FI':; :;''T,HET10= P102-ThETA9 

• •?...* .•••••••JiWFOl 

277 


WFOl 

278 

-,r-T.HETA= PI02+THETAP 

'WFOl 

279 

S1NTh=SiN(ThETA) 

• WFOl 

280 

GOSTH=GOS:(:THEiTA) . ^ : 

• i. .- WFOl 

281 

:G 1. ■. - . ■ . ' • . 

0 WFOl 

282 

C- note, G0STHP = SINTH and -S1NThP=GOSTH 

WFOl 

283 

c...- ; . 

•• • 1 WFOl 

289 

; .. ■ • ()LX= 0.0 • 

• > / . • WFOl 

285 


- TF (DEL.NE.0.0) OLX= ARCOS (COSTHP»COSDEU*COSWTV+Si NTHP*S INWTV)' ; h- WFOl' '286 



SINDLX=SIN(OUX) 

WFOl 287 


COSr)LX=COS(OLX) 

■ - WFOl 288 


DLXO= 0LX*1.0/DTR . 

WFOl 289 

G ; 


, WFOl 290 


PHIF = ARGOS( (A3*A3+G3*C3)/< (■< A3»B3 < A3*A3+G3*C3 ) **2+ < C3*B3 ) *»2) WFOl 291 


1#*0,5) ) . 

WFOl 292 

■\'.v . ■ 

SPHIF=SIN(PHIF) • • 

WFOl 293 


CSPHIF=COS(PHlF) 

WFOl 299 

c : . 


WFOl 295 

c 

. ' . - i ■ 

WFOl 296 

G. . 


WFOl 297 

c 

ofo«ftry and vortex numbers lay-out output 

WFOl 298 

G 


,i: - • WFOl 299 


WBiXE. i6*l9) Talk 

WEOl 300 

■ - 

Wl^ITE /6»59) 

WFOl 301 


WRITE (6*301 PSIWLEtPSiFLE 

WFOl 302 


write (6*8) PSiWTE,PSIFTE 

WFOl 303 


WRITE (6*21) PHID 

WFOl 309 


write (6*22) CRW.GRF 

WFOl 305 


WRITE (6*25) SSPAN.FSSPAN 

f-- WFOl 306 


WRITE (6,58) NGW,NGF 

WFOl 307 


WRITE (6»60) MSW,MSF 

WFOl 308 


IF (MFLAP.EO.O) GO TO 9971 

• - WFOl 309 


:WRITe (6»79) XF,ZF 

WFOl 310 


•WRITE (6^31) YFd) 

WFOl 311 


WRITE (6*37) YF(IFMAX) 

WFOl 312 

9971 

continue 

WFOl 313 


write (6,73) 

WFOl 319 

- 

WRITE (6*38) XM,YM,ZM 

WFOl 315 


write (6,67)DEL0 

WFOl 316 


WRITE (6,68) DlXD. 

WFOl 317 

G 


1 WFOl 318 

C ' 

lay-out vortex bound leg midpoints and CONTROL 

POINTS ON The wing WFOl 319 

G 


WFOl 320 

c! 

D = NCWi;.-.-?;‘ 1,.' ... ... . • - • 

:: t WFOl 321 


DO 701 i = 2,IMAX . . 

WFOl 322 


SU,MY( n = (Y( I)+Y( I-l ) )/2.b 

WFOl 323 


YL0C( I )=SUMY( I ) /SSPAN 

WFOl 329 
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DO 720 JCWal.NCW 
A = JCW 

SWPcUCW)aSWPWLE-( ( A-0.25)/D>#«SWpWLE-SWpWTE) 

J»(I-2)»NCW+JCW ^ 

SWPV(JJ« SWPWlE-I (A-0.751/DJ*«SWPWLE-SWPWTE) 

. DISTINCTION BETWEEN SWEEP IN CHORDAL (SWPVVPJ AND PLANFORM< SWPV ) 
planes 

SWPVVP(J)-SWPV( jj#CSPHI , 

SWPVVP(J)a aTan (SWPVVP(J|J 

WING vortex HALFWIDTH-SW 

SW(j)«(Y(n-Y(l-lJ)/<2.0*CSPHl) . 

PVX( J)=-( <A-0.75)*(CRW/D) ) -( SUMY( I J#SWPV( J ) » 

PVY( J»=-SUMY( I J 
PVZ(J)=-SUMY( I >*TAMPH1 

PCX( J)«-( (A-0.25)*(CRW/D) »-(SUMY( n*SWPC< JCW) > 

COORDINATES OF CHORD ELEMENTAL PANEL ' LEFT SIDE POINT ♦PTL 

PTLX( J)B-( ( A-0.?5)*(CRW/D) >-<Y( I )#SWPC< JCW) ) ' 

PTLY(J)=-Y<n 

0TLZ( J)a-Y( I)»T aNPHI ' 

720 CONTINUE 
70l continue 

if(mflap.eq.O) go To 9913 * 


TANTH7=TAN<ThETA7) 

C0STH8=C0S(THETA8) 

TANTh8=TAN(THETA8) 

C0STH9=C0S(THETA9) 

COSTlO=COS(THETlO) 

AE is INTERSECTION OF DEFLECTED FLAP PLANE AND XZ PLANE. 

IF (MFSpEC.EQ.il GO TO 6970 
AE=CRF*( COSTH9+COSTlO*TANTH7 1 
GO TO 6971 
6970 AE=CRF 
5971 CONTINUE 

YFC... .distance FROM FLAP X-Z PLANE TO LEFT TRAILING LEG OF 
HORSE SHOE VORTEX ON DEFLECTED FLAP 

E = NCF 

YFCd )=(YF(1 )*COSTH8i/(CSPHI*COSWTV) 

DO 702 1F=2.IFmAX 

YFC( IF)= (YF( IF)*C0STH81/<CSPHI*C0SWTV) , 

SUMYFI IF) =(YFC( IF)+YFC(IF-1 1 1/2.0 
YLOCF( IF)=SUMYF( IF)/ SSPAN 
, DO 721 JCF=1.NCF ' ' ' 

B = JCF 

JF=( IF-2)»NCF + JCF ' ' 

SWPVVF ( JF ) = TANTH8-H B-0.75 ) /E)*( TANTH8+TANTH7) 

SWPCF( JCF)= TanTH8-( (B-0.25)/E)»(TANTH8+TANTH7) 

SF IS flap VORTEX HALFWIDTH 

: SF(JF)=(YFCtIF)-YFC(IF-l))/2.0 


WFOl 

325 

WFOl 

326 

WFOl 

327 

WFOl 

328 

WFOl 

329 

WFOl 

330 

WFOl 

331 

WFOl 

332 

WFOl 

333 

WFOl 

33A 

WFOl 

335 

WFOl 

336 

WFOl 

337 

WFOl 

338 

WFOl 

339 

WFOl 

3A0 

WFOl 

341 

WFOl 

342 

WFOl 

343 

■WFOl 

344 

WFOl 

345 

WFOl 

346 

WFOl 

347 

WFOl 

348 

WFOl 

349 

WFOl 

350 

WFOl 

351 

WFOl 

352 

WFOl 

353 

WFOl 

354 

P WFOl 

355 

WFOl 

356 

WFOl 

357 

WFOl 

358 

WFOl 

359 

WFOl 

360 

WFOl 

361 

WFOl 

362 

WFOl 

363 

WFOl 

364 

WFOl 

365 

WFOl 

366 

WFOl 

367 

WFOl 

368 

WFOl 

369 

WFOl 

370 

WFOl 

371 

WFOl 

372 

WFOl 

373 

WFOl 

374 

WFOl 

375 

WFOl 

376 

WFOl 

377 

WFOl 

378 

WFOl 

379 

WFOl 

380 

WFOl 

381 

WFOl 

382 

WFOl 

383 

WFOl 

384 

WFOl 

385 

WFOl 

386 

WFOl 

387 

WFOl 

388 

WFOl 

389 
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, ■ . WFOl 390 

PVFX(JF)«XF . . ■ . . -I WFOl 391 

1 -(SUMYF( IF)*SINWtv/COS;tH8>-{(rB-b.75)/E)*AE+SyMYF(IF)* WFOl 392 

' , ISWPVVFJ JF)-SUMYFnF)*TANT.H81*COSpLX .. . . , , . WFOl 393 

. PVPY( JF)=-SUMYF( IF)*<COSWfv*CSWl/c6sTH8) ' ; - 39^ 

1 ' PVFZ(JF)=ZF . - ,.v.. • • -U- -. • . .. . , • WFOl 395 

. 1 "■ -SUMYF('lFr*(c6'SWT'^*SPHl7cdSTH8) + ( ('t‘B-0',75)/6)*AE+SUMYF( I.FWFOl -396 

1 )*swpvvf(jf)-sumyf( if)*tanth8)»sindlx ’ ■ WFOl 397 

PCFX<JF)=xXF .. . WFOl 398 

; .A -(SUMYF( 1F)*SInWTV/C 0STH8)-( ( (t5--0.25,J/E)*AE+SUMYF.nF;i* WFOl 399 

■ ... ISWPCFf JCF)-SUMYF< IF»*TaNTH81*C0SDLX ^ • '■ — - 

PCFZ(JF)=ZF • .. WFOl -AOl 

1 -Syiw|YF( IF»*(C0SWTV*SPHl/C0STH8) + r( (B-0.'25')/'E»*AE+SUMYF( IFWFOl A02 

Ui’.4>*SWPCF<JCF|-SUMYF( IF)*TANTH8)*SINpL)(y,'><y.v..v! ' ■ ■■ ' ' ■ .-(v 

WFOl aoa 

coordinates of FLAP ELEMENTAL PANEL '3/A CHORD POINT :PN,..T.HE . LEFT- WFOl A05 
10 k SIDE X, .. . . ,-iVi WFOl 406 


t='- 


ptlfx«jf)= xf 




St. 


WFOl 407 
WFOl 408 


, I rj.,;-(,YF,6(.IF)*SINWTV/COSTH8)..,.-l,«,(B-!0.25)ZEI*AE+YFC( IF,)*. WFOl 409 

, ISWPCFI JCn-YFCt tF)'*TANTH8 )*c6SDL'X.'’ 

. ” PTlFYI JF)=-YFC( IF)*«C05WTV*CSp.HI/G0STH8) ... WFOl 411 

.;. PTLFZ(JF)=ZF ■■■■■' ■■■ .’.5, WFOl 412 

1 -YFC( lF)*(C0SWTV*SpHl/C0STH8)+( I (B-0.25)/E)»AE+YFC(TF1*SWF01 413 


IWPCFS JCF)-YFC( rF)*TANTH8)*SINDLX 

SWPVVF(JF)= ATAN tSWpVVFtJF)) 

721 CONTINUE 
702 CONTINUE 

9913 continue . , . - 

. .. I I * ' . • > j4 . C • .* • ' 


r 


generate data set for control point coordinates'; 


, IF ( XCP.EO.O) GO TO 875 ' ' ' 

' DO 876 J=1*M •• ' . 

,876 WRITE <XCP»7) PCX( J ) »PVY ( J ) ,PVZ { J) " ^ ■ 

" ' IF (MFLAP.EO.O) go to 875 , ... ... . ' 

DO 877 J=MPi»MPMF''' ‘ 

■ JF=J-M 

877 WRITF IXCP »7 ) PCFX ( JF ) fPVFY ( JF ) tPCFZI JF ) 

:875 continue . • 

build up l.h.s, of boundary condition, the coefficient matrix. 

control POINTS , on WI NG. .VORT, ICES , ON WI NG,, . . , ^ , 

DO 212 JC = 1.M 'V r . 

. DO 212 JV=1.M 

XWW=PCX( JC)-PVX( JV) ,. ,, . , . J 

YWW( 1 )=PVY( JC)-PVY( JV) ■■ i - . ' ' 

YWW(2)=PVY(JC)+PVY( JV) 

ZWWrPVZS JC)-PVZ( JV) ‘ * '• , \ ; 

' DO 261 1 = 1.2 ‘ ' 1^'- 

call INFWW(SWPVVP( JV) .PHI .XWW.YWWI I ) .ZWfil'.SWI JV) .FUWT 1 ) .FVW( I ) , 

■ IFWW(D) •' ’ 

SWPVVP ( jV ) =-SWPVVP ( JV ) 

PHi=-PHi . , . ; ' 

' 261 CONTINUE ‘ ’ V" 

FVN( JC. JV) = (FWW( 1 )+FWW(2) )*CSPHi-CFVW( 1 )+FVW('2) )*SPHI 
'\2l2 CONTINUE 

; CONTROL POINTS ON WING. VORT ICES ON . FLAP 


WFOl 414 
. WFOl 415 
■ WFOl .416 
. WFOl '417 
WFOl . 418 
WF01..'419 
WFOl, 420 
WFOl 421 
WFOl 422 
WFOl 423 
WFOl 424 
WFOl 425 
, WFOl 426 
•' WFOl 427 
WFOl 428 
WFOl 429 
WFOl 430 
WFOl 431 
WFOl 432 
WFOl 433 
WFOl 434 
WFOl 435 
WFOl 436 
WFOl 437 
WFOl 438 
WFOl 439 
WFOl 440 
WFOl 441 
WFOl 442 
WFOl 443 
WFOl ,4'44 
WFOl 445 
WFOl 446 
WFOl 447 
WFOl 448 
WFOl 449 
WFOl 450 
WFOl 451 
WFOl 452 
WFOl 453 
WFOl 454 
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c 

c 

c 


G 


IF (MFLAP.EO.Ol 60 To 9914 
DO 312 JC«>1.M ■ ■ ••• 

DO 312 jVsMPltMPMF 
jVFsjv-M 

XWFaPCX( JC»-PVFX(JVF) 

YWF( 1)=PVY( JC)-PVFY(JVF) 

YWF(2)=PVY(JC1+PVFY(JVF» " ’ 

ZWF=PVZ( JC)-PVFZ(JVF) 

TRANSFORM COORDINATES. ROTATION THROUGH -DLX DEGREES 


- WFOl 455 
WFOl 456 
WFOl 457 
WFOl 458 
WFOl 459 
WFOl 460 
■■ WFOl 461 
WFOl 462 
WFOl .463 
' WF01‘'464 


WFOl 465 

XWFP=XWF*C0SDLX-ZWF*SINDLX WFOl 466 

YWFP(l)-YWFtl) WFOl 467 

yWfp(2)=ywf(2) - wfoi 468' 

ZWFPaXWF»SlNDI.X+ZWF*COSDLX WFOl 469' 

- ... 'Wfoi 470 

DO 262 1 = 1.2 ■ ‘-’.ii. r -i '^ WFOl 471 

CALL INFWW(SWPVVF( JVF) .PHIF.XWFP.YWFPI I> .ZWFP .SF UVF ( i FUFI jIM-.'FVF (1 WFOl' 472 


■ : l1 ; C-' 


' C' ’ 


l).FWF(I)) 

SWPVVFI JVF)«-SWPVVFC JVF ) 

PHIF=-PHIF 

262 continue 

FVN ( JC . J V ) « { FWF 1 1 ) + FWF ( 2 n *CSPH I*C0S0LX- { FUF I 1 ) +FUF t 2 
lLX-(FVF(ll+FVF(2n*SPHI 

312 continue , ^ • : . • 

control points on FLAP. VORT I CES ON WI NG ' ■ ■ 

DO 412 JC=MP1.MPMF ' ■ . ' 

JCF=JC-M . 1 

DO 412 JV=1.M 
XFWaPCFXI JCF)-PVX( JV) 

YFW( 1)=PVFY(JCF)-PVY(JV) 

Y'FWI 2)=PVFY( JCF)+PVYtJV) 

ZFW=PCFZ(UCF1-PVZ(JV) 

DO 263 1=1.2 

CALL INFWW(SWovVP( JV) .PHI .XFW. YFW( I ) .ZfW .SW ( JV ) ,FUW( I ) .FVW( I ) . 
IFWWdn 

SWPVVP ( J V ) =-SWPVVP ( JV ) 

PHI=-PHI 

263 CONTINUE 

FVN( JC.JV) = (FWW(1)+FWW(2) ) *COS < DLX+OELL( JCF ) ) *CSPHI F+( FUW( 1 » +FUW 
1 (2) )*SIN1DLX+DELL( JCF) )*CSPHIF-(FVW<1)+FVW(2))*SPHIF* ' 

2C0S(DLX+DELLUCF) ) ' • 

412 continue - 

CONTROL POINTS 'ON FLAP. VORTICES ON FLAP 

DO 512 JC=MP1 .MPMF 


WFOl 473 
WFOl 474 
WFO'l 475 
WFOl 476 
) )*C'S'PH1*SI'NDWF01 477 
.... ‘ WFOl 478 

WFOl 479 
WFOl 480 
•WFOl 481 
- • ' ■ '■ WFOl 482 

. V -WFOl 483 
. r . WFOl 484 
WFOl 485 
■ WFOl 486 
WFOl 487 
WFOl 488 
WFOl 489 
WFOl 490 
WFOl '491 
WFOl 492 
WFOl 493 
WFOl 494 
WFOl 495 
WFOl 496 
WFOl 497 
WFOl 498 
WFOl 499 
WFOl 500 
WFOl 501 
WFOl 502 
WFOl 503 


DO 512 jV=MPliMPMF 
JVF=JV-M 

XFF=PCFX( JCF)-PVFX( JVF) 

YFF( 1 )=PVFY( JCF)-PVFY( JVF) 

YFF( 2)=PVFY( JCF)+PVFY( JVF) 

ZFF=PCFZCJCF)-PVFZ( JVF) ^ 

TRANSFORM COORDINATES. ROTATION THROUGH -DLX DEGREES 

XFFP=XFF*COSDLX-ZFF*SINDLX 
YFFP( 1 )=YFF( 1 ) 

YFFP(2)=YFF(2) 

ZFFP=XFF*SINDLX+ZFF*COSDLX 


WF.0 1.504 
WFOl 505 
WFOl 506 
; WFOl 507 

WFOl 508 
WFOl 509 
• WFOl 510 

!• WFOl 511 

‘ '• WFOl 512 

WFOl 513 
WFOl 514 
WFOl 515 
WFOl 516 
WFOl 517 
WFOl 518 
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ri n.n r> n .. nno r> n r> n , , O ■; 


DO 264 ;ial»2 

CALL INFWW(SWPVVFt JVF) .PHIF.XFFP.YFFP( n .ZFFP.SF(JVF) »FUF( I ) ,FVF< 
1).FWF(I)» 

SWPVVF ( JVF ) «-SWP VVF < J VF ) 

PHIF=-PHIF 
, 264. continue 

. FVN( JC*jV)»<FWF{l)+FWF(2n*CSPHlF*COS(DEU.(JCFn-(FVF< 1 )+FVF(2n* 
. lSPHIF*COS(OELLf JCFn 
51 2 continue 

99,14 CONTINUE r ' . ; 


READ IN ANGLE OF ATTACK tDEG. *FOR SUCCESSIVE CASES 


s ■?!-. DO 1006 N=1*NRHS 
READ (5»7) ALPHAO(N) 
1006 ALPHAiLNlsALPHADt N)*DT:R , 


'.i'f 


■ read in engine induced perturbation velocities FOR: SUCCESSIVE , 
icases from multiple datasets , 


WFOl 

IWFOl 

WFOl 

WFOl 

WFOl 

WFOl 

WFOl 

WFOl 

WFOl 

WFOl 

WFOl 

WFOl 

WFOl 

WFOl 

WFOl 

WFOl 

WFOl 

WFOl 

WFOl 

WFOl 

WFOl 


■ ,WF01 

IF ( KEI:» .4004»10P4,«1005 WFOl 

1005 DO 7011 N=1*NRHS WFOl 

READ (KEI«15) ( T I TlE ( N. J I J • J 1 = 1 *20 ) WFOl 

DO 7001 J=ltMPMF WFOl 

rool READ OCEIfA^I UE I( J »N ) t VE I ( J »N I •^WEI ( J* N) WFOl 

IF (ICE1.EQ.5) GO TO 7011 WFOl 

READ (KEI »43*EN0 = 70il) WFOl 

7011 continue ■ WFOl 

WFOl 

GO TO 1003 WFOl 

1004 DO 7003 N=lfNRHS WFOl 

DO 7003 J»1*MPMF ' WFOl 

UEK J.N)=0.0 WFOl 

VEI(J.N)=0,0 WFOl 

7003 WEI(J»N|=0,0 WFOl 

1003 CONTINUE WFOl 

■ : WFOl 

WFOl 

. CONTROL points ON THE WING WFOl 

-WFOl 

DO 2612 N=lfNRHS . WFOl 

MPMFPN=M+MF+N ' * WFOl 

DO 2612 JC=ltM • WFOl 

2612 FVN( JC»MPMFPN) =12,566371»«SIN( ALPHA (NI+ALPHALI JO )*CSPHI+ WFOl 

IVEI ( JC»N)*SphI-(UEI ( JCfN)*ALPHAL-< JO+WEl ( JC»N) )*CSPHI ) WFOl 

WFOl 

control points on the flap WFOl 

WFOl 

IF (MFLAP.EO.O) GO TO 9915 WFOl 

DO 2613 N=1.NRHS > WFOl 

MPMFPN=M+MF+N ’ WFOl 

DO 2613 JC=MPltMPMF WFOl 

JCF=JC-M , WFOl 

2613 VVN( JC»MPMFPN)al2.566371#(SIN(ALPHA(N)+DLX+DELL( JCF)|)»CSPHIF+ , WFOl 

iVEI ( JC»N)*SPHIF*C0S(DLX+0ELL( JCF» )-(UEI ( JC»N)»SIN(DLX+DELL ( JCF) )+ WFOl 

2WEI ( JC»N)*C0S(DLX+DELL( JCFI) )*C.SPHIF) WFOl 

9915 CONTINUE ' WFOl 

• WFOl 

. SOLVE FOR UNKNOWN VORTEX STRENGTHS WFOl 

: ' , r ’ • ' ' -. WFOl 

WFOl 
WFOl 

' CALL INVERS(FVN.NRHS.MPMFf220t230) WFOl 

C WFOl 


519 

520 

521 

522 

523 

524 

525 

526 

527 

528 

529 

530 

531 

532 

533 

534 

535 

536 

537 

538 

539 

540 

541 

542 

543 

544 

545 

546 

547 

548 

549 

550 

551 

552 

553 

554 

555 

556 

557 

558 

559 

560 

561 

562 

563 

564 

565 

566 

567 

568 

569 

570 

571 

572 

573 

574 

575 

576 

577 

578 

579 

580 

581 

582 

583 

584 
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98 12 

c ■, 

■ C-. ■ . 


DO 9812 N=1 *NRHS 

-MPMFPN=M+MF+N ; ' ' . : . ; -■ ■ 

DO 9812 JC»1.MPMF 

CIR( JC*N)«FVN( JC*MPMFPN) 

■all of the following operations performed for each 


DO lOOO- N=1»NRHS 
•write (6t78l N 
NWRITE (6»66) ALPHAD(N) 

IF (ICEI.GT.6) write (6»85) 

.^F (MMM.EO.O) GO To AOOl 


(TITLE(N.J) »J=1»20) 




O: 

G'-. 

o. 

.< C:-; 


COMPUTE INDUCED 
'-'VORTICES 


velocities 


■; ^ i'.i 

AT points 


WFOl 
WFOl 
■ WFOl 
■ WFOl 
■ - ’ WFOl 

SUCCESSIVE: CASEWFOl 
WFOl 
WFOl 
WFOl 
WFOl 
WFOl 
WFOl 
WFOl 
WFOl 
WFOl 
WFOl 
?r ! n.WFOi 
3T i>HWF01 
3"if!;WF01 
WFOl 
yiWFOl 
ri'.WEOi 
"'WFOl 


( PMX • PMY.»RMZ ) : DUE;-J:03'W KNGJUO 


< • .‘5 > 

i ra *s-5 
■MA.Oi 


rocM 




' 'Ji-* i ! 


•'i i,-.';VDO 5 000 JC=liMMM 
• i-.'-iUI(JC)=0.0 

,1. iVI ( JC)=0.0 

■ '.WI ( JC)=0.0 • 

■J: . •• ,:PP 50.00, ,JV=1 tM,:' ... i I > i ‘ 

--XWMaPMXI JC)-OVX(JV| 
f •) ' ■:YWM( 1)=PMY( JC)-PVY( JV) WFOl 

.•■ YWM(21=PMY(JCl+PVY(jV) ' ' ^ WFOl 

.O'^zwmspmzi jo-PVZ(jV) ’Ti.; ‘'WFOi 

i'. --DO 1261 1 = 1.2 ■ ■■ <■ ■ WFOl 

i: . call INFWW t SWPVVP ( JV ) .PHI »XWM . YWM < I) »ZWM »SW ( JV ) .FUW( I ) . FVW 1 I>) .FWWWFOl 
>, '■<l-(in V.. ;V-i" ■ ! r;-. • VA'WFOl 

::SWPVVP(JV)=-SWPVVP(JV) 

•>PHI=-PHI 

•1261 continue 

UI ( JC)=UI ( JC)■^( (FUW(l )+FUW(2) t*CIR(JV.N» )/ 12. 566371 
VI ( JC)=VI ( JC)+( <FVW(1 )+FVW(2) ) «C I R ( JV.N)) / 1 2, 56637 1 
.WI (JC)=WI (JC)-t-( (FWW(1 )+FWW(2) )*GIR(.JV.NH'/12. 566371 
.5000- CONTINUE 


C-. 

,c 

C 

. c 


COMPUTE INDUCED 
VORTICES 


velocities AT points (PMX.PMY.PmZ) DUE'TO’FLAP 


•IF(MFLAP.EQ.O) GO TO 9916 
DO 5010 JC=1.WMM 
DO 5010 JV=MP1.MPMF 
JVF=JV-M • 

• XFM=PMX( JC)-PVFX( JVF) 

YFM( 1 )=PMY(JC)-PVFY( JVF) 

.YFM(2)=PMY(JC)-.PVFY(JVF) 

ZFM=PMZ( JC)-PVFZ( JVF) '■'I. 

..transform COORDINATES. ROTATION THROUGH -DLX DEGREES 


xfmp=xfm*cosdlx-zfm*sindlx 
■ . ,,yfmp(1)=yfm(1) 

... YFMP(2)=YFM(2) 

'Z,FMP = XFM*SIN0LX+ZFM*C0SDLX 

■ , DO l:271f 'I = l-.2--;'I-'-;..;' ■: ,v ,•=..■;?'• •■••• .i. J . . 

. CALL INFWW (SWPVVFI jVF) .PHIF.XFMP.YFMPI I ).ZFMP.SF( JVF) .FUR( I) . 

IFVFI I ) .FWF( I ) ) 

... SWPVVFI JVF)=-SWPVVF(JVF) 

• PHIF = -PHIF . • 

12 71. -CONTINUE t; '« n r-, • 

Ul ( JC)=UI ( JO-.M ( FUF( 1 )■^FUF( 2) ) *C0SDLX+( FWF ( 1 ) +FWF ( 2 ) ) *S;INDLX )*C IRWFOl 
. i;UV.N))/12. 566371 . : ,• WFOl 

.■VI (JC)=VI (JC)-.( (FVFd )-fFVF(2))*CIR(JV.N) )/12. 566371 , WFOl 


WFOl 

WFOl 

WFOl 

WFOl 

WFOl 

WFOl 

WFOl 

WFOl 

WFOl 

WFOl 

WFOl 

WFOl 

WFOl 

WFOl 

WFOl 

WFOl 

WFOl 

WFOl 

WFOl 

WFOl 

WFOl 

WFOl 

WFOl 

WFOl 

WFOl 

WFOl 

WFOl 

WFOl 

WFOl 

WFOl 

WFOl 

WFOl 


585 

586 

587 

588 

589 

590 

591 

592 

593 
59A 

595 

596 

597 

598 

599 

600 
601 
602 

603 

604 

605 
60.6. 
667 
608 

609 

610 
611 
612 

613 

614 

615 

616 

617 

618 

619 

620 
621 
622 

623 

624 

625 

626 

627 

628 

629 

630 

631 

632 

633 

634 

635 

636 

637 

638 

639 

640 

641 

642 

643 

644 

645 

646 

647 

648 
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' 

wi ( JC)=WI ( JC)+( ( (FWF< 1 )+FWF(2) )*C0SDLX-{FUF(1 )+FUF(2))*SINDLX)*CIRWF01 

649 

1 (JV.N) )/12. 566371 

WFOl 

650 

5010 

CONTINUE 

WFOl 

651 

9916 

CONTINUE 

WFOl 

652 

4001 

CONT.INUE ■ ' ; . 

WFOl 

653 

C 


WFOl 

654 

c 

LOADING CALCULATIONS FOLLOW 

WFOl 

655 

c 


WFOl 

656 

c 


WFOl 

657 


CALL LOADKN) 

WFOl 

658 

c 


WFOl 

659 

c 


WFOl 

660 

c 

CONTROL POINTS COOROINAtESt MEAN SURFACE SLOPES AND EXTERNALLY 

WFOl 

661 

c 

INDUCED velocities OUTPUT ' 

WFOl 

662 

c 


WFOl 

663 


WRITE (6«34) 

WFOl 

664 


WRITE (6»51) ' . 

WFOl 

665 


WRITE (6»47J I 

WFOl 

666 

c 


WFOl 

667 


DO 6001 J=1.M 

WFOl 

668 

6001 

WRITE (6 •35) J*PCX( J) .PVY( J) «PVZ U ) .ALPHAL < J ) *UE I ( j*N ) * VEI ( J »N ) » 

WFOl 

669 


IWEI ( J.N) 

WFOl 

670 

c 


WFOl 

671 


IF(MFLAP.EQ.O) GO TO 9917 ’ 

WFOl 

672 


WRITE (6«74) 

WFOl 

673 


DO 6002 J=MP1«MPMF 

WFOl 

674 


JF = J-M • 

WFOl 

675 

6002 

WRITE (6*35) J*PCFX(JF).PVFY(JF).PCFZtJF).»DELL(JF).UEI(J*N). , 

WFOl 

676 


IVEK J.N) .WEI (J.N) 

. WFOl 

677 

9917 

CONTINUE 

WFOl 

678 

C 


WFOl 

679 

C 


WFOl 

680 

C 


WFOl 

681 

C 

HORSESHOE VORTeX CHARACTERISTICS OUTPUT 

WFOl 

682 

c 


WFOl 

683 


WRITE (6.1) ALPHAD( N) .OELD 

WFOl 

684 


DO 550 J=1.M 

WFOl 

685 


SWPVVd= SWPVVP(J) *57,29578 

WFOl 

686 

5 50 

WRITE (6*13) J.PVX( j) .PVY( J) ,PVZ( j) .SWPVVD »SW( J ) »C1 R ( J » N ) 

WFOl 

687 

C 


WFOl 

688 

C 

- 

WFOl 

689 


IF(MFLAP.EO.O) go to 9918 

WFOl 

690 


WRITE (6.76) 

WFOl 

691 

,c 


WFOl 

692 


DO 551 J=MP1.MPMF 

WFOl 

693 


JF=J-M 

WFOl 

694 


SWPVVd= ' SWPVVF(JF) *57.29578 

WFOl 

695 

551 

WRITE (6.13) J.PVFX(JF) .PVFY{JF).PVFZ(JF) .SWpVVD . SF ( JF ) . 

WFOl 

696 


1CIR( J.N) • • 

WFOl 

697 

C 


WFOl 

698 

C 


WFOl 

699 

9918 

CONTINUE 

WFOl 

700 

c 

• ' 

WFOl 

701 

C 

' 

WFOl 

702 

c 

OVERALL LIFT AND MOMENT COEFFICIENT. REFERENCE QUANTITIES. SPAN- 

WFOl 

703 

c 

'WI3E LOADINGS OUTPUJ 

WFOl 

704 

r 


WFOl 

705 

c 


WFOl 

706 


WRITE (6.72) ALPHAD(N) 

WFOl 

70 7 


write (6.J9) SUMLIF.FUMLIF 

WFOl. 

708 


WMTE (6'. 18) ^ ■ ■ • . , • • 

WFOl 

709 


WRITE (6.19) ClTOT.ToTmOM 

WFOl 

710 


WRITE (6.28) 

WFOl. 

711 


WRITE (6.29) SPAN. SREF. CAVE 

WFOl 

712 
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n n 


WRITE (6»65» 

WRITE f6t24) 

DO 3000 I=2«IMAX 
IM1=1-1 

CHLO.CB l.n =CRW-SUMY t n # ( SWPWLE-SWRWTE) 

WRITE <6»23) Im1*YlOC« I ) •CHL0C8« n *SLDCO( I ) *SECL IF'l.l') . . 

IFIMFUAP.EQ.OI GOTO 9919 ' ' 

WRITE (6»64). ■ ■ ■ ' 

DO 3100 IF=>2«IFMAX : 

IFM1»IF-1 

FCHL0B<IF)= AE-SOMYFI IF)*.(TanTH8+TanTh7.) ■ 

WRITE (6t23) IFM1 ».YloCF( IF) .FCHLOBUFT.FSLDCOt IF) .FECL 
CONTINUE 

WRITE (6»83) 

WRITE (6*84) WMOMtFMOMf SUMDRG.FUMDRG.ORGTOT,COOCCS 

IFINMM.EO.O) GO TO 910.0 - >. ■ > 

WRITE (6*36) 

DO 4002 J=1»MMM 

write (6*39) J.PMX(J) *PMY( J) ,PMZ( J) *UI ( J) .VH J> ,WI (J) 

continue 


■ WFOX 713 

WFOl 714 
WFOl 715 
'■ WFOl 716 

• ' WFOl 717 

WFOl 718 
■ ’ ' WFOl 719 

- ■ WFOl 720 

■' • ■ WFOl 721 

V.- -C..IP WFOl 722 

WFOl 723 
:>'J KOI 'WFOl 724 
'7F<7'Ff''’ ; ' ■ ••‘WFOl 725 
WFOl 726 
:'3U HClSi-i;-)'';'. ''ypoi 727 
;^<pox 728 
WFOl 729 
.•TH MGi?IV-f;wp01 730 
, t;» ; 0- J ' WFOl 731 


continue 

GO TO 1010 
END 
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■ subroutine LOADKN) - . ■ WF02 

. . WF02 

. ■ ■' WF02 

• . -DIMENSION SLDC0I50) .SECLIFISOJ tFSLDCOISO) .FECLIFI 50> »CHLIWF02 

IFK5O) iTLLiFT( 150).BLLIFT{150).SL-DC01( 50) .FCHLIFISO) . TFL TFT ( 1'50 ) t WF02 
' : 2EFLIFT( 150) .SLOCFK 50 ) tBFUlFK 150) .BFL I.F2 ( 1 50 ) .BFLIF3( 150 ) . - WF02 

' , .., :3'bFLIFA( 150) tBFLlF5(150) tBLLlFK 150) .BLL1F21150) .BLLIF3( 150) . WF02 

i V4RLUlF4( 15Q) .BFDRG2( 150) .BFDRG3 ( 150 ) .BFDRG4 ( 150 ),.BFDRG5 Cl 50 )'. ' WF02 

^ - s'tFDRAGI 156) iFCORAG) 50) .BFDRAGI 1 50 » .BLDRG2 1 1 50 j * bLDRG 3 M 50 ) .BLDRGA WF02 
-'f -:-6jl50) « BLDRG5< 150) tBLDRAG ( 150 ) .TLDRAGI 150) *CHDRAG I 50 ) .BLL I F5 (150) WF02 

"WF02 

r.-i ;.niMFNSi0N V ( 1 5O ) .U ( 1 5O ) • Vfi ( 1,50 ).*.VfT?( T50 )-.UF;( 1 50 ) VVBF ( 150) . FUWT 2 ) .FWF02 
rr ;lVw(2) .F,,WWr(-24l«FUF(2:) .FVFI2) •FWF(2:).:.WF('150) .WB( 150) . <. WF02 

I- • ■ WF02 

rJ-,lDIMENSlON UE!(220.10).yei(220.lO),WEI(220.10).ALPHA<10). WF02 

.'!.,-ii,GIR(220*l0) ■ •■.• ••• ^■■'■WF02 

C N- r-;^ “ ' '''WF02 

,0-il^l Mens ION PTlX( 15b) .PTlYC 15O) ,PTLZ(150) .PVX( 15O) tPVV( 150 ) .PVZ( 150)WF02 
. : 't 1 tPVFX(150) .PVFY( 150 ) tPVFZC 150) ♦PTlFXI 150) •PTLFY 1 1'50 )'»PTLFZ ( 150 )' “ WF02 

. ■ ■■•'WF02 

, •< .dimension SWPVVP( 150) .SWPVVF( 150) .SF( 1 50) »SW( 150) »Y('50) • YF ( 50') »CHLWF02 

. 10G(50)'.FCHLOC(50) .YFC(50). >'•' t . • ' ‘ ' WF02 

^ ; “ WF02 

DIMENSION YTW( 2) .YTWP(2) .YbWP( 2 ) .YTFW( 2 ) .YTfP( 2) .YTFF(2) .YBFW(2) *YWF02 
-> 1 BFF( 2) iYBFP( 2 ) *YBW( 2) «T( 150) .TF(150) »ELPANL( 150) *FLPANU I 150) . WF02 

■, y ■ • ■ ■ bWFO'2 

: WF02 

; common C1R»SUMLIF»FUMLIF.CLT0T.T0TM0M*SUDC0.SECL1F»FSLDG0»FECl 1F WF02 
1 ■ i:’- , ' -■■■ • ' ■ ' ' ' WF02 

COMMON WMOM.FMOM.SUMDRG.FUMDRG.ORGTOTtCDOCLS WF02 

: ■ WF02 

common 0TlX.PTlY,PTlZ ,.PVX ,pVY.PVZ»PVFX.PVFY.PVFZ.PTLFX»PTLFY.PTlFZWF02 

WF02 

COMMON SWPWlE»SWpWTe*SWPflE*SWPFTe»SWPWP*SWPVVF*SF»SW.Y »YF WF02 

WF02 

COMMON CRW.SSPAN »crf « FSSPAN »PHI »PHIF.CSPHIF»CSPHI * alpha »d'LX.C 0SDLXWF02 
' r»StNbLX,SREF»CAVE*XM»ZM»SPHIF»SPHI WF02 

i WF02 

.common NCW.MtMPl»MF»MPMF.IFMAXtIMAX.NCF»MFLAP WF02 

WF02 

common AE»YFC»TANTH8«TANTH7 ■ , ' WF02 

WF02 

COMMON UEI.VEI.WEI WF02 

WF02 

■ COMMON/ I NF/BOT WF02 

WF02 

. WF02 

WF02 

COMPUTE REFERENCE WING AREA = PLANFORM AREA = SREF* WING AVERAGE WF02 

CHORD = CAVE ■ WF02 

WF02 

SINALP= SIN(ALPHA(N) ) WF02 

C0SalP= C0S( ALPHA(N) ) WF02 

b = NCW ■ ' • WF02 

CT,W=CRW-SSPAN*(SWPWLE-SWPWTE) WF02 

SREF=(CRW+CTW)*SSPAN ' WF02 

CAVF=SRFF/(2.0»SSPAN) '■■■ •• WF02 

■ ^ 1 = 1 : : ' ■ • • WF02 

SUMLIF=0,0 - ' ■ WF02 

SU'mdRG=0.0 WF02 

702 1=1+1 • • WF02 

CHLiFK i )i0.0 WF02 

; ■ CHDRAG( I )=0.0 WF02 


COMMON UEI.VEI.WEI 


COMMON/ I NF/BOT 
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non r>rvoo rv aooo non nr. '*iooo 


COMPUTE velocities NEEDED FOR LOADING CALCULATIONS 
SIDEWaSh V INDUCED BY WING VORTlCES AT THE 3/A CHORD 

trailing wing vortex legs 

DO 8?3 NV=1.NCW 
JT=( I-2)*NCW+NV 

ADO externally INDUCED VELOCITY VEI 

V( JT)=VEI (JT.N) 

DO 823 NN«1*M 

XTW=PTLX(JT)-PVX(NN) ' • 

YTW(1 |=PTLY( JT)-PVY(NNI ’ 

YTW(2)=PTlY( JT)+PVY(NN) 

2TW=PTLZ(JT)-PVZ(NN1 
DO 271 L=l*2 

CALL TNFWWISWPVVP(NN) »PH1 .XTW.YTW(L) .ZTW.SWtNN) »FUWIL) ♦ 
IFWWtD) 

SWP VVP ( NN ) =-SWPV VP ( NN ) 

PHI=-PHI 

271 CONTINUE 

V(jT)=V(jT)+(( EVW( 1 )+FVW(2 ) )*CIR(NN.N» 1/12.566371 
823 CONTINUE 

STDEWaSh V INDUCED BY FLAP VORTICES AT THE 3/A' CHORD i 

trailing wing vortex legs 

IF(MFLAP.EO.O) GO TO 8901 
DO 82A NVsl.NCW 
■JJ = 1 1-21 ANCW*HV - , , 

DO 82A NN=MPi»MPMF 
NNF=NN-M 

XTW=PTLX( JT)-PVFX(NNF) 

YTW( 1 1=PTLY(JT)-PVFY(NNF) 

YTWI 2)=PTLY( JT)+PVFY( NNF) 

ZTW=PTLZ< JT)-PVFZ'(NNF) 

TRANSFORM COORDINATES# ROTATION THROUGH -DLX DEGREES 

XTWP=XTW*COSDLX-ZTW*SINDLX 
YTWPI 1 )=YTW( 1 ) 

• YTWP(2)=YTWI2 1 

ZTWP=XTW*SINDLX+ZTW*C0SDLX 

DO 272 L«=l*2 

CALL INFWW (SWPVVFINNFI •PHIF»XTWp,YTWP(L) »ZTWP.SF(NNF) »l 
1L)»FWF(L)) 

• SWPVVF { NNF ) =-SWPVVF ( NNF ) 

PHIF=-PHIF 

272 CONTINUE 

V(JT )aV( JT) + ( ( FVF( 1 )+FVF(2 n*CIR(NN.N) 1/12.566371 
82A CONTINUE 
3R01 CONTINUE 

velocities U and V INDUCED AT WING VORTEX BOUND LEG 
INDUCED BY WING VORTICES 


WF02 06A 
WF02 065 
WF02 066 
OF The LEFTWF02 067 
WF02 068 
WF02 069 
WF02 070 
WF02 071 
WF02 072 
WF02 073 
WF02 07A 
WF02 075 
. • ' ' WF02 076 

WF02 077 
' ' ■WF02 078 

*„ . WF02 079 

' ■ WF02' 080 

. . WF02 081 

.FVW tL ) • , , WF02 082 

WF02 083 
WF02 08A 
WF02 085 
WF02 086 
WF02 087 
WF02 088 
WF02 089 
OF The LEFTWF02 090 
WF02 091 
WF02 092 
WF02 093 
WF02 09A 
WE02 095 
WF02 096 
WF02 097 
WF02 098 
WF02 099 
WF02 100 
WF02 101 
WF02 102 
WF02 103 
' WF02 lOA 
WF02 105 
WF02 106 
WF02 107 
WF02 108 
WF02 109 
WF02 110 
■FUFIL) »FVF(WF02 111 
WF02 112 


WF02 113 
- ' WF02 llA 

WF02 115 
WF02 116 
WF02 117 
WF02 118 
WF02 119 
MIDPOINT WF02 120 


DO 826 NV=1.NCW 
JB=( I-2)*NCW+NV 


ADD externally INDUCED VELOCITIES UEI.VEI 
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U( JR^=UfUJB»N» 

VB1JB>=VBI ( JB*N) 

WBI JB)= WEI IJB*N) 

DO 826 NN=1*M 
.XBW=PVX{JB)-PVX(NN»- 
YBWI 1 »=pVY( JS)-PVY<NN) 

YBW( 2 ) =PVY ( JB ) +PVY ( NN 1 
ZBWsPVZl JB)-PVZ(NNI 
DO 268 L=l»2 

gall INEWW(SWPVVP(NN) ♦PHI»XBW.YBWtL)*ZBW.SW(NN) iFUW(U .FVW(L)» 
1FWW(L)I 

SWPVVP ( NN ) =-SWPVVP ( NN ) 

PH1=-PHI 
' -268 CONTINUE 

U(JP)=U( JB»+( ( FUW( 1 )+FUW(2 ) »*CIR(NN.N))/12. 566371 
, V8<JB)=VB(J3),+ I (FVW(l)+FVW(2»)*CIR(NN»N) )/12. 566371 
WBI JB)=WB(JB) + ( (FWWd )+FWW(2) )*ClRiNN»N) )/I2. 566371 ■ 

82,6: continue 

.velocities, U and V INDUCED AT WING VORTEX BOUND LEG MIDPOINT 
induced' BY FLAP VORTICES 

" IF (MFLAP.EO.O) go TO 8902 
DO 827 NV=1.NCW 
. . JR=( I-2l*NCW+NV 
DO 027 NN=MPltMPMF 
NNFsNN-M 

XBW=PVX( JB)rPVFX(NNF) . . 

Y3W( l)apVYtJB)-PVFY(NNF) 

YBW(2)*PVY( JB)+PVFYINNF) 

2BWsPVZ( JB)-PVFZ(NNF) 

transform COORDINATES. ROTATION THROUGH -DLX DEGREES , 

xbwp=xbw*cosdlx-zbw*sindlx 

YBWPI 1 )rYBW( 1 ) 

YBWP(?)=YBW(2) 

ZRWP=XBW»SINDlX+ZBW»COSDLX , 


WF02 128 
WF02 129 
WF02 130 
WFOZ 131 
WF02 132 
WFOZ 133 
WFOZ 13A 
WFOZ 135 
WFOZ 136 
WFOZ 137 
WFOZ 138 
WFOZ 139 
WFOZ ILO 
WFOZ lAl 
WFOZ 142 
WFOZ 143 
WFOZ 144 
WFOZ 145 
WFOZ 146 
WFOZ 147 
WFOZ 148 
WFOZ 149 
WFOZ 150 
WFOZ" 151 
WFOZ 152 
WFOZ 153 
WFOZ 154 
WFOZ 155 
WFOZ 156 
WFOZ 157 
WFOZ 158 
WFOZ 159 
WFOZ 160 
WFOZ 161 
WFOZ 162 
WFOZ 163 
WFOZ 164- 
WFOZ 165 
WFOZ 166 


DO 269 L=1»2 WFOZ 167 

call INFWW (SWPVVF(NNF) .PHIF.XBWP.YRWPIL) .ZBWP.SFINNF) .FUFIL) .FVFIWFOZ 168 

ID «FWF(L) ) WFOZ 169 

SWPVVFINNF)=-SWPVVF(NNF) WFOZ 170 

PHIF=-PHIF WFOZ 171 

269 CONTINUE ' ' WFOZ 172 

U( JR)=U( JB) + ( I (FUFI 1 )+FUF(2) ) *COSdLX+ I FWF 1 1 )+FWF(2 ) ) *5 1 NDLX ) *CI R ( NWFOZ' 173 
IN. N) 1/12.566371 WFOZ 174 


VBI JB)=VB(JB)+( (FVFIl )+FVF(2))*CIR 
WBlJB)=WBIJ8)+( l-(FUF(l )+FUF<2) )*5 
1C1RINN.N1 1/12.566371 
827 CONTINUE 
8902 continue 

. calculate LIFT ON CHORDWISe ROW OF 

CHLOCI I 1=CRW-Y( I 1*ISWPWLE-SWPWTE1 

CIRNET=0.0 

DO 829 KCW = 1.NCW 

JT=( !-zi*NCW+<CW 

JS=( I-l )*NCW+KCW 

Tl'jT ) sSSPAN/ I SW (JT 1 *CSPHI } 

■IF (I.EO.IMAX) GO TO 2010 
ClRNFT = CIRNET-frlRljT.N)-CIRI JS.N) 
GO TO 2011 


NN.N) 1/12.566371 WFOZ 175 

NDLX+IFWFII) +FWFI2) )*COSDLXl* WFOZ 176 

WFOZ 177 
WFOZ 178 
WFOZ 179 
WFOZ 180 

elemental panels on The wing wfoz i8i 

WFOZ 182 
WFOZ 183 
■ WFOZ 184 

• ■ ■ WFOZ 185 

WFOZ 186 
WFOZ 187 
WFOZ 188 
, , . WFOZ 189 

WFOZ 190 
WFOZ 191 
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2010 C1RNET=C1»1NET+C1R( JT*N) 

2011 EACsl.O 

IF (KCW.EO.NCW) FAC-0.75 
ELPANL( J.T)=CHL0C(1 I/O 

TLLIFT=LIFT acting on left leg of wing vortex tail at the 3/4 
Elemental panel chord 

TL0RAG»F0RCE acting on left leg of wing vortex tail at The 3/4 
• elemental panel CHORO»IT acts along VINF line and POINTS' forward 

TLLIFTI jT)oELPANL( JT)*FAC*V< JTI*(2.0/SREF)*CIRNET*C0SALP 
TLDRAGUT)«ELPANL( JT)*FAC*V.( JT)*(-2.0/,SREF)*CIRNET*SINALP 


RLLIFT O lift ACTING ON BOUND LEG OF THE WING VORTEX AT THE 
-MIDPOINT 

BLDRAG= -DRAG FORCE ACTING AT SAME POINT 


AT 

A 


V -■) n,ox.:-:: 


SWPVVTb TAN(SWPVVP(JT1) 

FACLDW= ( 2.0/SREF)»2.0*SW('jT)*CIR{ JT.N) 

BLLIF1(JT)=> FACLDW*CSPHI , ^ r r. 

BLLIF2(JT)« FACLDW»t-U( JT)*COSALP)*CSPHI 

BLLIF3(JT)= FACLDW*VB< JT)*SWPVVT *C0SALP ‘ ' 

RLLIF4(JT)= FACLDW*VB( JT»*SPHI*SINALP 
'bLLIF5(jT)= FACLDW*(-WB(jTn »CSphi*SINALP 

BLLIFTI jT)«BlLIFKjT)+BLLIF2( JT)+BLLIF3( jT)+BLLIF 4( JT)+BLLIF5t JT) 

BLDRG2(JT)= FACLDW*U( JT)»SINALP*CSPHI 
BL0RG31JTI= FACL0W*(-V8IjT) )*SWPVVT *,S1NALP 
BLDR.G4(JT)= FACL0W*VB ( JT ) »SPHI*C0SALP 
BL0RG5(JT1» FACLDW*(-WB(JT1 l»CSPHI*COSALP 
BLDRAG(jT)a BLDRG2 ( JT ) +BLDRG3 ( JT ) ♦BLDRG4t JT ) +BLDRG5 ( JT ) 


IF ( I .GT.2) GO TO 2007 
CHLIFTt n=CHLlFT( n+<TLLIFT( JT) 
CHDRAGI 1 v= CHDRAGt 1 ) + ( TlDR AG < JT I 
GO TO 1832 

’007 JU=( I-3)*NCW+KCW 

CHLIFT ( I )iCHLlFT( n+ ( TLLIFT ( JT) 
CHDRAG(I)= CHDRAG(I)+ (TlDRAG(JT) 
1832 SLDCOK I )=T( JT)»CHLIFT( n 


)+BLLIFT( jT) 
)+BL0RAG( jT ) 


)+BLLIFt(JT)' 
.)+BLDRAG( JT ) 


SECLIF=(WING SECTION LIFT*WING LOCAL CHORD 1 /2*SPAN 

SECL IF( I )=CHLIFT ( I )*(SREF/ (2.0*SW( JT)*CSPHI*4.0*SSPAN) ) 

829 CONTINUE 

SPANWISe SUMMING Up OF LIFTS ACTING ON CHORDWISE ROW OF ELEMENTAL 
PANELSfSUMLiF=CL 

SUMlIF=SUmLIF+2.0#CHLIFT( I ) 

SUMDRG= SUMDRG-2.0*CHDRAG( I ) 
if(i.lt.imax) go To 702 


WF02 192 
WF02 193 
WF02 194 
WF02 195 
WF02 196 
WFOl .197 

Woi 196 

WF02 199 
WF02 200 
WF02 201 
WF02 202 
WF02 203 
WF02 -204 
WF02 205 
WF02' 206 
WF02 .207 
’WF02 208 
WF02 209 
WF02-210 
WF02 211 
WF02 212 
WF02 213 
WF02 214 
WF02 215 
WF02 216 
WF02 217 
WF02 218 
WF02 219 
WF02 220 
WF02 221 
WF02 222 
WF02 223 
WF02 224 
WF02 225 
WF02 226 
WF02 227 
WF02 228 
WF02 229 
WF02 230 
WF02 231 
WF02 232 
WF02 233 
WF02 234 
WF02 235 
WF02 236 
WF02 237 
WF02 238 
WF02 239 
WF02 240 
WF02 241 
WF02 242 
WF02 243 
WF02 244 


sldco=spanloao coefficient ClC/CLCAVE for The wing 


DO 3010 I=2.IMAX 

IF(ABS(SUMLIF).LT.1.0E-07) go to 3811 
SLOCOI I )=SLDC01 ( I ) /SUMLIF 
GO TO 3010 
3811 SLDCO(I)=0.0 
3010 continue 


WF02 245 
WF02 246 
WF02 247 
WF02 248 
WF02 249 
WF02 250 
WF02 251 
WF02 252 
WF02 253 
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IF(MFLAP.EO.O) GO TO 8903 
SINAPD=SIN(ALPHA(N)'+DLX) 

C0SAPD=C0S ( ALPHA ( N ) +DLX 1 

COMPUTE FLAP LOADINGS 

i 

E = NCF • 

1F = 1 • . • ■ - • 

FUMLIF=0.0 

FUMDRG=0,0 •• • 

70?0 IF=IF+1. .. 

FCHLIF( IF)=0.0 . . • ; ■ 

FCDRAG( IF 1=0.0 

COMPUTE VELOCITIES NEEDED FOR FLAP LOADING CALCULATIONS 

SIDEWASh' V at 3/4 CHORD OF LEFT TRAILING VORTEX LEGS ON FLAP 
INDUCED- BY WING VORTICES 

riO B230‘ NV=1 *NCF 
• jFT= ( IF-2il,*NCF-t-NV. 

add externally induced velocity VEI 

- ■ -i 4, 

jf=jft+m' ‘ ■ 

VFT( JFTi=VEI (JF.N l 
00 8230 NN=1.M 

XT:FW = PTlFX(JET)-PVX(NN) ' 

YTFW( 1 )=PTLFY( JFT)-PVY(NN) 

YTFW( 2)=PTLFY(JFT)+PVY(NN) 

ZTFW=PTlFZ(JFT)-PVZ(NN) . • , ■ 

DO 2715 L=lf2 

CALL'' ^INFWW (SWpVVP( NN) «PH I *XTfW* YTFW ( L 1 » ZTFW.SW ( NN ) .FUW(l') »FVW(L ) 
lFWW(Lir 

SWPVVP ( NN ) =-SWPVVP ( NN ) 

PHI=-PHI 
2715 continue 

VFT( jeT) =VET ( jfT) + ( (FVW( 1 )+FVW(2) )»CIR(NN»N) ) /I 2. 566371 
8230 CONTINUE 

calculate SIDEWASH V . AT 3/4 CHORD OF LEFT TRAILING VORTEX LEGS 
ON FLAP INDUCED BY ELAP VORTiCES 

no 8240 NV=1,NCF 

JFT=tiE-2l*NCF+NV . , ‘ ' ^ 

qO 8246 NN=MPltMPMF 
NNF=NN-M ' • . 

XTFF = PTlFX(JFT)-PVFX( NNFl 
YTFF( 1 )=PTLFY( jfT)-PVFY(NNF) 

YTFF(2)=PTLFY( JFT)+PVFY(NNF) • 

ZTFF=PTlFZ( JFT)-PVFZ(NNF) 

TRANSFORM COORDINATES. ROTATION THROUGH -DLX DEGREES 

xtfo=xtff*cosdlx-ztff»sindlx 

YTFP(1)=YTFFU) 

YTFP(2)=YTEF(2) 

ZTFP=XTfF*SINDLX+ZTEF»COSDLX 

DC 2660 L=1.2 

CALL INFWW (SWPVVF(NNF) .PHIF.XTFP.YTfPIL) •ZTEP.SF(NNF) .FUF(L ) iFVF 
IL) *FWF(L') 

swpvvf(nnf)=-swpvvf(nnf)--. . ■ ■ - . ‘ 


WF02 254 
WF02 255 
WF02 256 
WF02 257 
WF02 258 
WF02 259 
WE02 260 
WF02 261 
WE02 262 
WF02 263 
WF02 264 
WF02 265 
WF02 266 
WF02 267 
WF02 268 
WF02 269 
WF02 270 
WF02 271 
WF02 272 
WF02 273 
WF02 274 
WF02 275 
WF02 276 
WF02 277 
WF02 278 
WF02 279 
WF02 280 
WF02 281 
WF02 282 
WF02 283 
WF02 284 
WF02 285 
WF02 286 
.WF02 287 
WF02 288 
WF02 289 
WF02 290 
WF02 291 
WF02 292 
WF02 293 
WF02 294 
WF02 295 
WF02 296 
WF02 297 
WF02 298 
WE02 299 
WF02 300 
WF02 301 
WF02 302 
WF02 303 
WF02 304 
WF02 305 
WFQ2 306 
WF02 307 
WF02 308 
WF02 309 
WE02 310 
WF02 311 
WF02 312 
WF02 313 
WF02 314 
(WF02 315 
WF02 316 
WF02 317 
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■ phif=-phif 

2660 CONTINUE 

VFT( jfT)«VFT( JFT j+( ( FVF ( H +FVF ( 2 n *CI R( NN .NM / 1 2 .566371 

8240 continue I , 

velocities U.V.W induced at flap vortex boundleg midpoint induced 
by wing vortices ■ • 


DO 8260 NV=1.NCF . . , . 

JFBs( IF-2)«NCF+NV 

ADD externally INDUCED VELOCITIES UEI.VEI.WEI ' 

JF=JFB+M 

UF(JFB)= UEI (JF.N)*C0SDLX-WEI( JF.N)*SINDLX 
VBF( JFB)= VEI ( JF»N) 

WFtJFB)= UEI(JF.N)'*SINDLX+WEKJF.N)*C0SDLX- 
'DO 8260 NN = 1.M 
XBFW=PVFX( JFB)-PVX(NN) 

YBFWd )=PVFY( JFB)-PVY(NN) 

YBFW(2)=PVFY( JFB)+PVY(NN) 

ZBFW=PVF2(JF8)-PVZ(NN) ■ .a> . : . 

DO 2680 L = 1 .2 

call INFWW (SWPVVP(NN) .phi .X'bFW.YBFW(L) .ZBFW.SW(NN) .FUW(L) »FVW(L) 
IFWWILM • - . ■ ' . . • .-O 

SWPVVP ( NN ) =-SWPVVP ( NN ) 

PHI=-PHI ' 

2680 CONTINUE ' 

UF( JFB)=- UF( JFPJ + U IFUWI 1 )+FUW( 2n»COSDLX-lFWWt l)+FWWt 2) )*S1NDLX) 
ICIR(NN.N) I/12-.566371V 

VBF( JFB)>=VBF( JFB) + ( (FVWd )+FVW(2) )*CIR(NN.N))/'12.566371 
WE( JFB)=WF( JFB)+t ( (FUW( 1 ) +FUWI 2 ) ) »Si NDLX+ ( FWW( 1 )+FWW(2) )*C0 SDlX)» 
1CIR{NN,.N))/12. 566371 

3260 continue . ' ' : ' 

velocities U and V INDUCED AT FLAP VORTEX BOUND LEG MIDPOINT 
INDUCED BY FLAP VORTICES 

DO 8270 NV=1,NCF 

JFB=dF-2)*NCF4-NV 

DO 8270 NN=MP1»MPMF 

NNF=NN-M • 

XRFF = PVFX ( JFB ) -PVFX ( NNF ) 

YBFFd)=PVFY(JF0)-PVFY(NNF) ' 

YBFF(2)=PVFY(JFB)+PVFY(NNF) 

ZBFF=PVFZ(JFB)«PVFZ(NNF) ' 

transform COORDINATES. ROTATION THROUGH -DLX DEGREES 

XBFP=XBFF»COSDLX-ZBFF»SINDLX 
YBFPd)=YBFFd ) 

YBFP(2)=YBFF(2) 

zbfp=xbff*sindlx+zbff*cosdlx 


DO 2690 L=1.2 

CALL INFWW (SWpVVFI NNF) .PHT F . XbFP . YBFP ( L ) .ZbFP . SF ( NNF ) .FUF (L ) 
IL) »FWF(L) ) 

SWPVVF<NNF)=-SWPVVF(NNF) " ' ' " 

PHIF=-PHIF 
2690 continue 

UF( JFB)= UF( JFB)+( ( FUFd )+FUF( 2 ) )*CIR( NN.N) 1/12.566371 
VBF( JFB.1=VBF(JFBH-( ( F VF ( 1 1 +FVF ( 2 1 )*CIR(NN.Nl 1/12.566371 
WF( JFB1= WF( JFBl+( ( FWFd l+FWFI 2 1 1*CIR( NN.Nl 1/12.566371 


FVF 


WF02 318 
WF02 319 
WF02 320 
WF02 321 
WF02 322 
WF02 323 
WF02 324 
WF02 325 
WF02 326 
WF02 327 
WF02 328 
WF02 329 
WF02 330 
WF02 331 
WF02 332 
WF02 333 
WF02 334 
WF02 335 
WF02 336 
WF02 337 
WF02 338 
WF02 339 
WF02 , 340 
,WF02 341 
WF02 342 
WF02 343 
WF02 344 
WF02 345 
♦WF02 346 
WF02 347 
WF02 348 
WF02 349 
WF02 350 
WF02 351 
WF02 362 
WF02 353 
WF02 354 
WF02 355 
WF02 356 
WF02 357 
WF02 358 
WF02 359 
WF02 360 
WF02 361 
WF02 362 
■ WF02 363 
WF02 364 
' WF02 365 
WF02 366 
WF,02 367 
WF02 368 
WF02 369 
WF02 370 
WF02- 371 
WF02 372 
(WF02 3:73 
WF02 37.4 
WF02 375 
WF02' 37'6 
WF02 , 377 
WF02 378 
WF02 379 
WF02 380 
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■8?.70 ..CONTINUF 

■;,J' .} CALCULATE LIFT ON CHOROWISE ROW OF ELEMENTAL PANELS ON THE FLAP 

! FCHLOCI IF)=AE-YFC( lF)*(TANTH8-fTANTH7) 

,CIRNET = 0.0 
..■•DO 8290 KCF=1.NCF 
r; ■ JFT=(IF-2)«NCF+ICCF+M 
' . ; JF = JFT-M 

, .JES=(IF-1I»NCF+KCF+M , ....... ■ ■ 

1 vTFUF )=FSSPAN/(SF( JF )*CSPHIF) 

• ,.IF( IF.FO.IFMAX) GO TO 21t0 - 

-,.C1RNET = CIRNET + CIR( JFT.NlrCIR(JF.S.N) • ■ . 

..-■.GO TO 2111 

M10,.C1RNET = C1RNET+C1R( JFT.N) . • . ■ , 

mi.vFAC=1.0 ' ’ 

• i’lF(KCF.FO.NCF) FAC = 0.75 . i ’ ' 

,FLPANL(JF )=FCHL0C( IFI/E . ■ 

, ■ jflift = lift acting on left leg of flap vortex. Tail at the 3/a 
.elemental panel chord 

TFDRAG=nFORCE ACTI NG ■ ON ^LEFT- LEGOF FLAP VORTEX TAIL AT- THE'3/A 
■-V- elemental PANEL CHOROtiT ACTS ALONG VINF LINE. AND POINTS FORWARD’ 

^TFLIFT(JF 1=0.0 
,,.iTFDRAG( JF)= 0.0 

^BFLVf'tV lVf't acting on' bound leg OF The flap vortex at the.^ ■- ■ 

, 'midpoint , ■ . . , 

,..,,’BFDRAG=-pR,AG force' -ACTING -AT SAME PLACE - 

FACLOD= (2.0/SREF)»2.0*SF(JF)*CIR(JFT.N) 

. PFLIF1(JF)= FACLOD*CSPHIF 

RFLIF,?(JF)= FACLOO»(-UF(JF)*COSAPO)*CSPHIF. 

- PFLIF3(JF)= 0.0 ■ ■ • ■ 

. BFLIFA(jF)i FACLOD* (-WF( JF )*CSPHIF)*SINAPD 
PFLIF'5 (jF)= O.O 

. RFLIFTI JF1= BFLIFK JF)+3FLIF2( JFl+BFLIF3UFt+BFLlFA( JFl-t-RFLIFSUF 

,BFDRG2lJF)= FACLOD*UF( JF)*S1NAPD»CSPHIF - 

: RFDRG31 JF)= O.O ' . . j 

. BFDRGAl JF)= FACLOO*(-WF< JF)*CSPHIF*COSAPD) . , 

BFDRG5( JF)= O.O 

,BFDRAG(JF)= 8FDRG2( JF )+BF0RG3( JF)+BFDRGA( JF)+BFDRG5( JF) . 

T ',IE( IF.GT.2 ) GO TO 2107' 

T ■ FCHLIFI IF)=FCHLIF( IF)+ .{TFLIFTIJF ) 

FCDRAGI IF)=FCDRAG( IF)+ (TFDRAG(JF) 

■GO TO 8320 

M 07 JFU= ( IF-3)*NCF + KCF 

, , FCHLIFt IF)=FCHLIF( IF')+ (TFLIFTIJF ) 

, FCDRAGf 1F)=FCDRAG( lF)-f (TFPRAG(JF) 

’3 2!’-‘- SLDCFl ( IF ) = TF( JF ) * FCHL I F ( IF ). 


)+BFLIFT(JF ) 
)+3FDRAG( JF) 


)+BFLIFT(JP ) 
)+BFDRAG(JF) ■ 


FECLIF, =. (FLAP- section L1FT*FLAP LOCAL, CHORD ) /2*W I NG SPAN- 

FECLIF(IF)=FCHLIF( IF)*(SREF/(2.0*SF(JF ) *CSPH I F*A. 0»SSPAN ) ) 
3290 continue 

SPANWISf SUMMI.NG up' of lifts acting on CHORDWISE row OF FLAP 
, elemental panels. FUMLIF-CL for FLAP.FUMDRG= CD for FLAP 


WF02 

•WF02 

WF02 

WF02 

WF02 

WF02 

WF02 

■ WF02 
WF02 
WF02 
WF02 
WF02 
WF02 
WF02 
'WF02 

WF02 
WF02 
WF02 
WF02 
WF02 
'WE02 
WF02 
WF02 
WF02 
-WF02 
WF02 
WF02 
WF02 
WF02 
•WF02 
-WF02 
-WF02 
WF02i 
WF02 
WF02 
WF02 
WF02 
WF02 
)WF02 
WF02 
WF02 
WF02 
: WF02 
WF02 
-WF02 
WF02 
WF02 
WF02 
WF02 
WF02 
WF02 
WF02 
WF02 
WF02 
WF02 

■ WF02 
WF02 

■WF02 

WF02 

WF02 

WF02 

WF02 


381 

382 

383 
38A 

385 

386 

387 

388 

389 

390 

391 

392 

393 
39A 

395 

396 

397 

398 

399 
AOO 

401 

402 

403 

404 
40 5 

406 

407 

408 

409 

410 

411 

412 

413 

414 

415 

416 

417 

418 

419 

420 

421 

422 

423 

424 

425 

426 

427 

428 

429 

430 

431 

432 

433 

434 

435 

436 

437 
433 

439 

440 

441 

442 
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U U U U u u 


FUMtlF»FUNIL!F + ?.0*FCHUlF( IF) 

FUMORG= FUMDRG-2,0*FCDRAG< IF) 

^ IF( I F.LT.IFMAX) go to 7020 

FSLOCO » SPANLOAD COEFFICIENT CLC/CLCAVE FOR THE 

DO 3110 IF=2tIFMAX 

lFtABSlFUMLlF).LT.1.0E-07) GO TO 3821 
. FSLDCOI IF)-SLDCF1( IF)/FUML1F 
GO TO 3110 
3821 FSLnCO«IF)=0.0. 

3110 CONTINUE 

GO TO 8<306 
8903 FUMlIF=0.0 
' ' FUMORG=0.0 
8906 CONTINUE 

IclTot=sumlif+fumlif 
■ DRGToT=SUMDRG+FUMDRG 
CDOCLS=DRGTOT/(clTOT»CLToT ) 


WF02 

WF02 

' • '• WF02 

T. . WP02 

FLAP WF02 

‘ • •■'•WF02 
' WF02 
I ■ ■ ■ • WF02 

' ■ ■ ■ ; V' WF02 
' WF02 

• ■ " ' ■ 'VIF,02 

WF02 
" WF02 
- :v. A JJ' I WF02 
’ '■ WF02 

-'■}r-u= \ WF02 
'■ , WF02 

-■.•■/••'t: -' '■• "wf02 
-M-.;.- :'wfo2 

I ■ ■ ■ ypo2 


pitching moment calculation, moments Taken about point 'xM'iyMtZM’ ti/F02 

AND DIVIDED BY 0*SREF*CAVE r-xr;. .'- ^^pQ2 

■ WF02 

WMOMsO.O .• -I' yPQ2 

FMOMaO.O WF0.2 

DO 9109 JT=1*m - ypj)2 

9109 WMOM=WMOM+( 2.0*( (BLL1FT( jT ) «SI NALP+BLORAG( JT ) *C0SALP ) * < PVZ ( JT )-ZM)WF02 

1+(BL0RAG( JT)*SINALPr^BLLlFT( JT) *COSALP)*(XM-PVX( JT) iXTULlFTtOT)* WF02 

2SINALP+TL0RAG( JT)*CdSALP)*(PTLZ(JT)-ZM)+(TLDRAG(JT)»SlNALP WF02 

3-TLLIFT( JT)»COSaLP)*(XM-PTLX( jT) ) )/CAVE) WF02 

IF(MFLAP.EO.O) GO TO 8904 '' ' WF02 

. DO 9110 JFT.I.MF ■■ WF02 

9110 FMOMsFMOM+(2.0*( ( BFL I FT ( JF T ) *S I NALP+BFDRAG ( JFT ) »COSALP ) * ( P VFZ ( JFT ) WF02 

1-ZM)+(9FDRAG( JFT)*SINALP-BFLIFT(JFT)*C0SALP)*IXM-PVFX( JFT) )+ WF02 

2 (TFLIFT,(JFT)*SINALP+TF0RAG( JFT.) *COSalP)*(PTlFZ( JFT )-ZM)+’ WF02 

3 (TFDRAGI JFT ) *SINALP-TFLIFT ( JFT)*COSaLP)*(XM-PTLFX( JFT) ) ) /CAVE) WF02 

GO TO 8905 WF02 

8904 FMOM=0.0 ■ WF02 

8905 TOTMOM=WMOM+FMOM WF02 

return WF02 

END ' WF02 
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444 

445 

446 

447 

448 

449 

450 

451 

452 

453 

454 

455 
A56 

457 

458 

459 

460 

461 
A62 
A63 

464 

465 

466 

467 

468 

469 

470 

471 

472 

473 

474 

475 

476 

477 

478 

479 

480 

481 

482 

483 
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SUBROUTINF INFWW ( PS I I . APH 1 1 .XXX , YYY .ZZZ t SNN ♦ FUI • FVl , FW I ) 


' r, ■ ■'common/ I NF/ROT 

: TOLRNC=(BOT»15.0E-05)**2 i' 

OATa PSi ID.APHI ID/0. .■ 0./ » FS.FC.FPS.FPC/0.il..0..1,/ 

"4 IF (PSII .EO. PSIID) GO TO 10 
. FS = SINIPSI I )• 

.. ,.FC = COS.IPSin 
^ .ft = FS/FC 
PSIID=PSI1 
ip .'CONTINUE 

' .IF ( APHI I .EO.APHl 10) GO TO 20 
r. FPS=SIN ! APH! I ) 

•FPC=C05( APHII ) 

' ..APHI I0=APHI I . 

?b,.. continue . 

„bUMY=SNN*FT 
F1=XXX+DUMY 
’ F4=XXX-DUMY 

OUMY=SNN*FPC a 
.F2 = YYY+DUMY . ' . -7 

.F5=YYY-DUMY 

■:-dumy=snn*fps 

F3=ZZZ+DUMY 

F6=ZZZ-DUMY 

0UMY2sYYY»FPS-ZZZ»FPC 

RF,A= ( XXX»FC-(TYY*FPC+ZZZ*FPS)#FS)#»2+DUMY2#DUMY? 

FFE = F2*F2-^F3*F3 ‘ ‘ 

FFB=SORT(Fl*Fl-t-FFE) 

FFD=F5*F5+F6*F6 

FFC=S0RT(F4*F4-t-FFD) 

DUMY,.3 = FC*FPC . ■• 

DUMY'a = FC*FPS 

FFF=(Fl*FS-f-F2*DUMY3 + F3*0UMY4)/FFB-(F4*FS-t-F5*DUMY3+F6*DUMy4)/FFC 


IF(ARS(FFA).LT.T0LRNC) go to 262 
bUMY=FFF/FFA 

FU0NF= (ZZZ*FPC-YYY*FPS )*FC*DUMY 
pVONF= (XXX* nUMY4-ZZZ*FS)*DUMY 
FW0NF= ( YYY*FS-XXX*DUMY3 ) *OUMY 
GO TO 265 

262 FUONp=0. 

FVOi^^iO. 

FWONE=0. 

265 IF(ABS(FF0).LT.T0LRNC) go to 263 

nUMY=( l,-F4/FFC)/FFn ' 

FVTW0=F6*DUMY 
PWTWO=-F5*DUMY 
GO To 266 

263 FVTWO=0, 

FWTWO=0. 

266 TG(ABS(FFF).LT.T0LRNC) GO TO 264 


WF03 001 
WF03 002 
WF03 003 
WF03 004 
WF03 005 
WF03 006 
WF03 007 
WF03 008 
WF03 009 
WF03 010 
WF03 Oil 
WF03 012 
WF03 013 
WF03 014 
WF03 015 
WF03 016 
WF03 017 
WF03 018 
WF03 019 
WF03 020 
WF03 021 
WF03 022 
WF03 023 
WF03 024 
•WF03 025 
WF03 026 
WF03 027 
WF03 028 
WF03 029 
WF03 030 
WF03 031 
WF03 032 
WF03 033 
WF03 034 
WF03 035 
WF03 036 
WF03 037 
WF03 038 
WF03 039 
WF03' 040 
WF03 041 
WF03 042 
WF03 043 
WF03 044 
WF03 045 
WF03 046 
WF03 047 
WF03 048 
WF03 049 
WF03 050 
WF03 051 
WF03 052 
WF03 053 
WF03 054 
WF03 055 
WF03 056 
WF03 057 


DUMY=( 1.-F1/FF8) /FFE 

FVThRE=-F3*DUMY 

FWTHRE=F2*DUMY 


WF03 058 
WF03 059 
WF03 060 
WF03 061 
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GO TO 267 
264 FVThRE=0. 

FWThR5=0. 

267 FUI=FU0NE 

fvi=fvone+fvtwo+fvthre 

FW1=FW0NE+FWTW0+FWTHRE 

return 

END 


WF03 062 
WF03 063 
WF03 064 
WF03 065 
WF03 066 
WF03 067 
WF03 068 
WF03 069 
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SUBRQUTINt INVERS(A|NSy8fN(NMAX(MHAX) 
3UBK0UT1NE TO 30LVE 81MULTANEUUS tBUATIONS 
dimension A(NMAX|MMAX)«X(300) 

8ICN«l,0 

NPI»N*l 

nmisNbI 

NPLSYMN+NSYS 

DO 

IPI«IY1 

MAXbI 

AMAXBABS(A(1»I)) 

DO 10 K»IP1,N 
AKMAXaABS(A(K,t)) 

IE(AKHAX,Ut,AKAXJ GO TO 10 
MAXaK 


AMAXaAKMAX 
10 CONTINUE 

IP(AMAX,LT.1.0C*12) go to 16 
lf(MAX,EQ,n GO TO 12 
DO II L«I«nPL 3Y 
TtMP«A(I,L) 

A(I,L)oA(max,U 
J1 A(MAX,UsTEMP 
SIGNsoSIGN 

12 DO IP JalPIfN 

IF (ACJ.in 30, IP, 30 
30 CON8T««A(J,n/4(I,I) 

DO 13 L«1,NPLSY 

13 MJ,U«MJ,Uy*(1#L)*CUn8T 
IP CONTINUE 

DO 15 I«1»N 
IF (ACIiin 15,16,15 
15 continue 
GO TO 18 
16 mHITECE, 100} 

IOC FORMAT (5X, IBMNATPIX IS SlNCUtAR) 
STOP 

18 DO 21 I«NPI,NPLSY 
00 20 XKal,N 
NbNPI-KK 
X(K}8A(K, I) 

IFCK.EO.N} GO TO 20 
JsK 

19 JaJtl 

X(K)bX(K)-A(X, J)*X(J) 

IFtJ.NE.N) CO TO 19 

20 XCK)8X{N)/A(K,K) 

DU 21 jBt.N 

21 A(J,I)bX(J) 


RETURN 

END 


RF04 001 
RF04 002 
RF04 003 
MF04 004 
t>F04 005 
RFOP 006 
RF04 007 
RF04 008 
wFOP 009 
RFOP 010 
RFOP Oil 
WF04 012 
RFOP 013 
RF04 OIP 
RF04 015 
WFOP 016 
WF04 017 
WFOP 018 
WFOP 019 
wFOP 020 
wFOP 021 
WFOP 022 
WFOP 023 
WFOP 02 p 
WFOP 025 
wFOP 026 
WFOP 027 
wFOP 026 
wFOP 029 
WFOP 010 
wFOP Oil 
WFOP 032 
wFOP 013 
wfOP 034 
wFOP 015 
WFOP 016 
wFOP 017 
WFOP 018 
»F0P 019 
wFOP OPO 
WFOP OPl 
wFOP 0P2 
wFOP OPi 
wFOU OUP 
wFOP 0P5 
» F 0 P 0 P 6 
WFOP 0P7 

WF op QP6 

wFOP 0P9 
WFOP 050 
WFOP 051 
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JET WAKE PROGRAM 

The purpose of this section is to describe the jiet. wake computer 
program in sufficient detail to permit, understanding ‘and^'use 'bf the pro- 
gram. The program calculates the velocity field induced by ’the 'jet wake 
of a turbofan engine, both inside and outside the boundary Wf ' the ‘jet. 
since the purpose for which the program was developed ^I's calculation 
of interference between the jet wake and the wing-flap,' the- icomputer 
program is oriented principally, toward use with the wing.rf lap.'.'program : 
described previously. ■ ' ■ ;• ,7 

The program represents the wake by a series of closely*' s^paced 'ring 
vortices bn the boundary of the jet. The strength Of the vortices is 
determined frbm the initial jet velocity in accordance with equations . 
(15) and (16).. The' ring vortices and jet boundary are centered on a- 
wake centerline that is permitted to have curvature in .accordance with 
the flow field induced in. the region of the wake by. the wing.Tflap.. and the 
free stream velocity.' Once the ring vortex system is defined, induced 
velocities are computed at points in the vicinity of the jet wake 
corresponding to the control points on the wing. 

Sample cases described in this section illustrate the preparation 
Of the input and the details of the output. 

Program Description 

Calculation procedure .- The purpose of this program is to calculate 
the jet-wake induced velocity components at field points corresponding 
to the control points on the wing and flap. Upon input, the '"program 
transforms the coordinates of the field points from the wing" coordinate 
system to the coordinate system of the jet wake.' All calculations are 
carried out in a jet coordinate system and the results transformed' 'back , 
to the wing coordinate system for output. 

The program first determines the location of the vortex rings using 
the specified centerline coordinates and wake boundary shape. Then the 
position of each field point relative to the nearest vortex ring is 
examined. If the radial distance from the field point to the ring is 
As or less, where As is the axial spacing of the rings, then the 
field point is moved axially upstream or downstream until it lies in a 
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plane midway between two adjacent rings. This adjustment was found 
ne.cessary because if the field point is very close to a ring, unrealistically 
high velocities, are . induced at that field point. By moving the field 
point to, the. midplane, the induced velocities computed at the point agree 
with those computed, on the basis of a continuous vorticity distribution. 

In subsequent wing . calculations, the induced velocities are considered to 
act at the original control point location in the wing coordinate system'. 

The velocities induced by the jet at all the control points are . , 
computed. . l£ more than one jet is present, the above procedure .is repeated 
for each jet in turn, and the final result is a sum of aid the induced 
velocities .at each control point. These, velocities are output and the , 
program returns to the beginning for a new case. 

Program operation . - The program is written , in Fortran IV for the 
IBM 360/67 computer -.at the Ames Research Center, NASA. Thfe input is . 
either by cards .'only or. by a combination of cards and internally stored . 
data sets containing the field point coordinates. The output is printed 
and the option is- available to store the induced velocities in a .data . 
set. Typical' ^execution time is approximately 6 minutes for a case- with 
200 field points and one jet with a maximum length of 150 and a ring 
spacing of 0.1 R^. The running time is doubled when a second jet is 
added. A complete description of the input and output is presented in 
the following sections. 

Description of Input 

This s.e^tion describes the input for the jet-wake program. In the 
following discussion, the content, of all input cards is described and, 
where appropriate, instructions on generating input quantities are given. 

The :^ollowing section then presents, a more detailed discussion of how the 
7 et wake .parameters are computed. The relationship between the jet wake ^ 
and the wing-flap is shown in figures 9 and 22(a) for purposes of 
illustrating the geometry of the configuration. 

Card content .- The input quantites on each card are described. 

All input variables ^are. listed at the end of this section in order of 
appearance in the input deck. ..The input form is presented in figure 24.. 


77 



Item 1 


The first card contains identification" information which is printed 
at the top of the first page of -output.- Any alphanumeric ihformatiori can ' 
be used on this card. If a data set is created for the induced velocities, 
the information on this card is also printed at the beginning of^ the data 
set for- identification" 'purposes^ 

Item 2 >•; 'u p - 

The second, card contains six indices and the vofteix ring" spacing 
DS. The indices and their use are defined in the table 'at* thd* end of ' 
this section. . The limit on the number of field points NP ^is the s^e 
as the limit on the. number of- wing-flap control poirtt's. " The * jet center-’ 
line table entries NCYL are discussed further in the follbwihg” section 
describing:, the input for the wake centerline. The print ’ index NPRNT is 
used to, obtain additional printed output if desired. The normal output 
(NPRNT; = .0) contains, details of the jet wake boundary specification 
and the jet wake induced velocities in the wing coordinate system. As 
optional output (NPRNT = 1) , the wake-iindiiced velocities’ for each' jet in 
its own coordinate system’ can be printed. . ' 

The values of KIN and KOUT define the manner in which the field 
points are input and the velocities butput. This option is presented 
in order to make use of data blocks in the Ames Research Center TSS 
system. A value of KIN = 5 corresponds to input of field points by 
cards. A value of KIN of seven or more (up through 98) indicates input 
of field points by a data set which, for .instance, has been- genera.ted 
by the wing-flap program. The value of KIN must correspond to sthe -:number '- 
on the appropriate control card which defines the data set containing the 
field point coordinates. A value, of KOUT = 6 indicates printed: output 
only. Values of KOUT of seven or higher .(up through. ,98) indicate both 
printed output and induced velocities stored in a data set. With ±he 
data set, the value of . KOUT must correspond to, the numbers on the appropriate 
control card which defines the data set in which the induced velocities 
are to be stored.' KOUT and KIN should never be equal to each, other. More 
information on the appropriate values of KIN and KOUT is presented at the 
end of this section. 

Finally, DS is the dimensional axial spacing between vortex rings. 

It is recommended that DS be chosen such that ^s/R^ = 0.1. ■ As the 
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spacing increases from this value, the accuracy in calculating velocities 
begins to, decrease. Smaller spacings do not provide any appreciable 
increases in. accuracy but increase the. running time. 

Item 3 

This item consists of one or more groups, of cards: one group for 

each jet wake in the calculation (NJET) . For each group, the following 
information is required. The first card contains the initial vortex 
strength from, equation. .(16) , the initial radius of the jet,- an'd the 
coordinates in the. wing coordinate system of the origin of the wake 
centerline. ^;The radius and origin coordinates are dimensional and all 
dimensions should be consistent. . Note that since the wing-flap calculation 
is carried out on the left wing panel, the Y-coordinate of the jet origin 
is negative. The following cards, of which there, are NCYL in number, 
specify, the location of the jet centerline and the growth of the jet 
boundary. . On each, card the variables, are. the three coordinates of the 
jet centerline, in the jet coordinate system, 

ratio of. the local jet boundary radius to the initial radius (R/R^>, and 
the inclination of the centerline in degrees (0). These variables are 
described further in a subsequent section concerning input for the wake 
centerline. The last of these cards defines the downstream end of -the 
wake. This group of cards is repeated for each jet wake. .Thus there . 
are NJET groups of cards. 

Item 4 . ... .. . ’ 

This item -consists ‘df the field point coordinates, in the wing 
coordinatefsystem, at which the induced velocities are to be computed. 

These coordinates are input according' to the value of KIN. If KIN = 5, 
this item, is made.' -up of NP cards, on each of which are the coordinates of 
one field point. .If KIN > 6, no cards are required. Since all wing- 
flap calculations are carfied out on the left wing panel, the field 

point coordinates will generally have negative Y coordinates. 

. 1 . .. . .... ' ■ / 

This completes the input for one case. The program, input variables 

are defined as follows: 

: ■ : .L . • . .. ^ 
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Program 

Variable 

Item 1 

Item 2 
NJET 

NP 

NCYL 

NPRNT 

KIN 

KOUT 


DS 

Item 3 . 
GAMVJ(J) 

RJET(J) 

XQ(J) ,YQ(J) , 
ZQ(J) 

XCLR(J,N)., 
YCLR(J,N ) , 
ZCLR(J,N) 


Algebraic Symbol 

(if applicable) Comments 

any alphanumeric information may be 
put on this card for identification 


“ number of jet wakes under the left 

wing panel to be included in the 
induced velocity calculation 
1 < NJET £ 4 

number of vield points at which 
induced velocities are to be 
calculated 1 £ NP £ 200 

number of entries in table specifying 
jet centerline 2 < NCYL ?c..l00 

'TT 

index controlling .optional output 
NPRNT = 0 for normal biatput 
NPRNT = 1 for expanded output 

index controlling input of field 
points 

KIN = 5 input via cards 

KIN > 6 input via data set (7 £ KIN £ 98) 

index controlling output of induced 
velocities 

KOUT = 6 output printed only 
KOUT > 6 induced velocities stored 
in data set (7 £ KOUT £ 98) 

Note: KOUT f KIN ■ 

As spacing between vortex rings in 

appropriate units 


y/v 


vortex cylinder strength of 
J'th jet 

initial radius of J'th jet 


X_,Yq,Zq coordinates of center of origin of 

^ ^ ^ J-'th jet wake in wing coordinate 

system '■ 




N'th set of coordinates specifying 
‘centerline of J'th jet in jet 
coordinate j system". N = 1,2,..., NCYL 
1 < J < 4 
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program 

Variable 

RGR(J,N) 


THETA (J,N) 


Algebraic Symbol 
^ (if applicable) 

R/R 




Item 4 

XW(N) ,YW(N)', 
ZW(N) 




• V ' ■'x,y,z 


Comments 


ratio of local radius of jet wake 
boundary to initial jet radius at 
N'th point specified by XCLR(J,N) 

inclination in the jet coordinate 
system of the J'th jet centerline 
at N'th point, positive upwards, 
degrees. See figure 9(a) 


coordinates of field points in wing 
coordinate system 1 < N < 200 


The last card in the data deck should be a %END card preceeding the 
LOGOFF- command , to terminate execution. 

Samples of input decks are shown in figure 25 illustrating all of the 
options discussed previously. In figure 25(a), two complete sets of input 
are shown fo,r a configuration -with one jet per semispan and for two angles 
of attack. The field point coordinates for both cases are input via the 
same data" 'Set (KIN = 7) and the final induced velocity results are stored 
in one data set (KOUT = 8 for a = 0° and 10°). The control cards for a 
run of this type are 'listed as follows; 

Col. . • 5 10 15 ’ 20 25 


L 

.0 

G 

0 

N 





















D 

D 

E 

F 


F 

T 

0 

7 

F 

0 

0 

1 

y 

V 

s 

9 

c 

p 

X 

Y 

Z 




D 

D 

E 

F 


F 

T 

0 

.8, 

F 

0 

0 

1 

9 

V 

s 

9 

J 

E 

T 

V 

1 




D 

D 

E 

F 


F 

T 

0 

8 

F 

0 

0 

2 

9 

V 

s 

9 

J 

E 

T 

V 

2 




C 

A 

L 

L 


J 

E 

T 

1 

_$ 

















Notice that the unit number in columns 8 and 9 of the first DDEF' card 
corresponds to the value of KIN on the second card of both input decks. 

The data set containing the table of field point coordinates is stored 
under the name CPXYZ and is defined by this DDEF control card, similarly, 
the output, which is a table of u/V, v/V, and w/V induced velocity com- 
ponents at the specified field points, is stored under the name JETVl for 
a = 0°'and JETV2 for a = 10° in the data set defined by FT08 '{KOUT = 8). 
Note that the sequence numbers in columns 11, 12, and 13 of the DDEF card 
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defining the data set in which the velocities are stored must be different 
as must the names of each data group (e.g., JETVl and JEW2) . This data 
set is now available for use as input to the vortex-lattice program. 
Separate data sets can be generated by changing, the DDEE nuit^ers in columns 
8 and 9 for each case. The value of KOUT in each case .should agree with 
the appropriate number of. the data set. -.x . 

A second set of input shown in figure 25(b) illustra,tes^,.a typical 
case of a wing with two engines on the semispan. The input, deck is 
complete as shown (KIN = 5) and the output is to be .printed ^^( KOUT = 6). 

For purposes of illustration, the control points sho^ correspond to one 
inboard chprdwise row on the wing and the five outboard ro.ws on the flap, . 
Since no data sets are required, no DDEF control cards are, .needed. 

Calculation of input wake characteristics .- The results . obtained 
from interference calculations on an externally-blown jet-au^ehted flap 
have shown that the predicted load distribution is sensitive to the ~ 
position of the wake relative to the wing-flap. In the method both the 
vertical and lateral displacements and the slope of the. centerline, must 
be specified. Of these, the most important effect is the vertical dis- 
placement, in that by moving the jet vertically, the wake boundary is 
caused to intersect more or less area element control points on the 
wing-flap. The objective in defining the jet' centerline was to develop a 
simple rational approach that could be applied equally well to any 
wing-flap-engine configuration. The approach described below appears 
to fulfill this objective, although more experience with the, method, . . . 
comparisons with more lift and moment data, or particularly comparisons 
with wake survey data that may become available may indicate areas ^of 
improvement. , , _ 

The coordinates specifying the jet .centerline Ycl/^o' ^CL'^^o^ 

are input in the jet coordinate system, figure 9. The x,,, values are 
always positive. The axes of this coordinate system are 'always taken to ■ 
be parallel to their respective wing axes, whether or not the engine has 
incidence relative to the wing root chord.- The -local inclination of the 
centerline ,, e , is input in degrees, positive. .when the jet is angled up 
toward the wing. Experience has shown that the best jet model is obtained 
when the jet origin is placed at the engine inlet. In the region of 
the engine nacelle, the jet is not allowed to deflect or expand. At the 
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fan nacelle exit, the wake then is considered to begin expansion. The 
reason for this practice is that in a vortex ring (or continuous vortex 
cylinder) model, the calculated axial jet velocity at the origin is 
1/2' VV and within two diameters or so' increases to nearly V/. Thus, 
by permitting this adjustment to occur over the nacelle length, the jet 
has essentially become fully developed at the fan exit station. 

After the initial jet velocity ratio, V./V, is calculated according 
to equation (18) , the jet boundary is chosen from figure 4. The initial 
region is fixed by the Velocity ratio, and when the total length of the 
main region is chosen, the variation of radius along the entire length 
of the jet is specified. Again on the basis of calculations comparing 
the ring vortex model with' a semi-infinite vortex cylinder, it has been 
found that lithe rings must be, used, oyer a total length of about 150 R^- to 
have sufficient wake to accurately model the velocities within the first 
15 radii of length. 

The, change in the average jet velocity Vj along the jet can be 
determined approximately from the relation 

V. R' V. . , 

= -r (-T - 1) + 1, ' ! . . (27) 

This value is needed in calculating the displaicement of the. jet center- 
line due to induced downwash arid sidewash. The distribution of wirig- 
flap induced downwash and sidewash (with no power effects) along a line 
colinear with the engine centerline 'is shown in figure 17(b) for a 
typical configuration with zero engine incidence. Although a stream- 
line leaving the center of the engine exhaust would deviate from this 
line, the deviations are small and should not change the computed downwash 
significantly except near the flap trailing edge, where the resultant 
changes in wake position would have little effect on the wing-flap area 
Within the wake boundary. Consequently, all the results presented in' 
this report were based on down- :and sidewash velocities computed along the jet 
X-axis. For zero engine incidence, this line is' colinear with the engine 
centerline. 
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A distribution of points along the wake centerline must be selected 
in. order to define the wake centerline coordinates, the slope of this 
centerline, and the radius of the wake for Item 3 of the input. The 
number of points chosen is arbitrary. In accordance with the above 
discussion, the first point should be the engine inlet and the second 
the engine exit. • The slopes of the wake in the jet coordinate system 
are given by the engine incidence angles for these first two points, 
and the wake radius is Rq* The last point should be approximately 150 

downstream of the engine. Linear interpolation is used between points 
defining the wake. The computation procedure is the same for any momber 
of points and will be illustrated for the N'th point along the'wake 
centerline. 

At the N'th point, the direction of the flow is first computed 
relative to the engine coordinate system. An estimate of the average 
jet velocity Vj is obtained from equation (27). If the engine has an 
incidence in the vertical plane measured with respect' to the x-axis 

(positive if the wake is directed upward toward the wing) , and a toe-in 
angle in the horizontal plane measured with respect to the x-axis 

(positive if the wake is directed outboard under the right wing panel) , 
then the angles made by the velocity .vector with respect to the x-axis 
in the vertical and horizontal planes are, respectively 


(28) 


in the above equations, positive values indicate the velocity vector to be 
directed upward toward the wing in the positive z direction and outboard 
under the right wing in the positive y direction, and the cosines of the 
engine incidence angles are assumed equal to 1. Not.e that under the left 
wing panel,, which is where the calculations are made, will have a nega- 

tive value if the engine is toed-in so that its wake is directed outboard. 
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The vertical and lateral displacements are then computed separately 
to get the and YclAq coordinates at the N'th x^^/Rq/ as follows 

With all the slopes at the NCYL points .known, the displacement in each 
plane (vertical and horizontal) can be determined by assuming the wake 


centerline :to be divided . into straight line segments between each 
Xcl/Rq* . The _slope of an individual segment is considered the average 
between the slopes ,at the two ends of the segment. The line segments are 


laid out startinc 


.at.the engine exhaust station and working aft. The 


wake characteristics aft of the f,lap trailing edge have a decreasing 


effect on the^ induced velocities, on the wing and flap with increasing 
distances; .thus the wake centerline can be made a straight line for most 
of the 150 R of length. 


The slope^of the wake centerline at each point is required in order 
to tilt the plane pf.the vortex rings to make them normal, locally to the 
wake centerline.. The tilting of, the rings has only a very small effect 
on the induced velocities, and for all practical purposes, the rings 
could be oriented normal to the x-axis. , Provision is made in the program 
for vertical tilting by specifying values of .9(N), where 9 is equal 
to at each .point, as given by equation (28). One caution should be 

indicated in calculating 9 values.. If 9 changes sufficiently between 
adjacent vortex rings, the two rings can intersect and cause numerical • 
problems. since the slopes are small in practical cases and the program 
linearly interpolates between input values, it is unlikely that this 
condition will occur. 


The wake radius is obtained at each from the appropriate 

curve in figure 4. • 

For most configurations of interest, the major interference of the 
wake on the wing-flap occurs in the initial region of the wake, thus it 
is necessary to describe the initial region more precisely than the main 
region. Because of the desire to retain simplicity and ease of appli- 
cation of the method and the fact that no appropriate wake survey data 
exists to use as a guide, the calculations presented in this report were 

made using only a few points. The main region of the jet was defined by 

r> ■ • 

two points: the end of the initial region, which is usually aft of the 

flap trailing edge, and the 150 R^ point. The initial region Was 
specified by the first two points on the engine, the end of the initial 
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region, and possibly one or two intermediate points.- The procedures are 
illustrated in the sample cases in a later section. 

Description of Output 

A sample set of Output, shown in figure 26, was- generated from the 
input deck illustrated in figure 25. The entire set of optiorial'output 
has been obtained for this case. ; 

The identification information from the first card of the input deck 
is printed at the top of the first page. This is followed immediately 
by the jet vortex ring spacing and the input and output indices KIN, KOUT. 
The next block of output describes the geometry of the jet wake (s) . ..Under 
the major heading JET PARAMETERS are given the nondimensional vortex ring 
spacing, As/R^; the initial jet radius, R^j the coordinates of the origin 
of the jet in the wing coordinate system, XQ, YQ, ZQ; the initial vortex ■ 
strength, GAMMA/V; and a table defining the jet centerline. The center- 
line coordinates in the jet coordinate system ^CL'^^o' ^CL^^o'" 

vertical inclination, 0, and jet radius, R/R^ are all input quantities. 

The distance along the centerline, s/R^, is calculated in the program. 

If more than one jet is present, the same block of information for the 
other jets follows. 

The next items of output are optional (NPRNT = 1) . The induced 
velocity components at the specified field points are output in the jet 
coordinate system. The field point coordinates, xp/R^, yp/R^, zp/R^ are 
expressed also in the jet coordinate system. The induced axial velocity, 
u/V, is positive aft, and the other components . v/V and w/V are positive 
in the direction of increasing jet coordinates yp and Zp respectively. 
Note that these velocities are jet wake induced and do not have any free- 
stream velocity components included. If more than one jet is considered, 
the same output is given for the second and succeeding jets. 

The last block of output is the induced velocity field due to the 
entire system of jets.. The field points in the wing coordinate system 
X^,y^,Z^ are printed as are the total jet induced velocity components 
u/V, v/V, and w/V. The velocities are positive in the positive wing 
coordinate direction as shown in figure 2. If the data set option 
(KOUT >6) is requested, this last set of velocity components is also 
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stored in the specified data set foruse as input to the vortex-lattice 
program. 


Program Listing 

, The jet., flow model program is -written in Fortran IV for the NASA, 
Ames Research Center IBM 360/67 computer.- The program consists of the. 
main program and three subroutines. The table below will act as a table 


/*\ -P P /"% v\ P «« 

C.^11 UO 

Program . .. 
-MAIN 

! ■v'.-.w 

■ CORECT 
VRING 

ELLIPS ■ . 


'.e program listing given on the following pages. 


Identification 
JETl' - 
JET 2 
JET3 
• JET4 


Page No . 
88 

91 

92 

93 ' 
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r*rio non non nnnnnnnn n nnnnnnnnnnnnn 


compute velocity induced by a series of constant STRENGTH; JETl 

VORTEX RINGS WITH VARIABLE RADII LYING ALONG A PRESCRIBED PATHJETl 

JETl 

ALL FIELD POINT COORDINATES ARE INPUT. IN THE- WING SYSTEM AND 'JETl 
TRANSFORMED TO THE ENGINE SYSTEM FOR' CALCULAT IONS , i- . JETl 

JET centerline coordinates are INPUT IN ENGINE SYSTEM . JETl 

ALL OUTOUT IS IN THE WING S YSTEM»OPTlONAL OUTPUT IN ENGINE SYSTEMJETI 

i JETl- 

INPUT OF field points MAY BE VIA CARDS OR DATA SET 
INDUCED velocity OUTPUT IS BOTH PRINTED- AND .-r 
STORED IN A DATA SET • ^ 


OPTIONS 




dimension XCLRl 4*100 ) .ZcLRU* lOO) .RGR(4*100) .SCLR(4»100 ).*h ,= f 0-- 
1 TheTa (4*100) *YCLR( 4*100) *GAMVj( 4) *R JET ( 4 ) *XQ ( 4) *YQ( 4);*Z0(.4J,iri-, 
dimension TITLE(20) *XpR(220) * YPR ( 220 ) *Z PR ( 220 ) *U( 22P) *V,(226.) *■ -.w 

1 W(220) *XP( 220) *YP(220) *ZP(220) *UP( 220 ) *VP ( 220 ).»WPii 220 ) 

common mZZZ 5 ■ . . 

700 format (8F10.5) . , 1 ] ivi-.v 

701 format (6I5*5F10,4) ; 

702 format (20A4) ' ’ ‘ : n:' 

710 FORMAT ( 1H1/10X.20A4) 7.!.' 

711 format t/2H (Il*'l6H) JET PARAMETERS5X8HD(S/R) =,F7.4/ 

110X0HX/R7X3HY/R7X3HZ/R7X3HS/R r.-, 

2 5X5HTHFTA*4X6HRGAM/R* 5X1HR *8X2HX0 *6X2HY0*6X2H2O*4X7HG^MMA/V ) ' 


712 

713 


format 

F0 R»^AT 
714 format 
71 *; format 

format 
format 
format 


716 

717 

718 


( 3 X 6 FIO. 2 * F10.4*4F8.3) 

( /5X4HD(S) *4X3HKIN*2X4HKOUT) C,C- r'. 

(F10.4* 13,16) 

( 4X]HN*5X2HXW,8X2HYW,8X2HZW8X3HU/V*9X3HV/V*9X3HW/V<); 

( I5*3F10.3*3(1PE12.4) ) , ■ , 

(/2X*22HW1NG COORDINATE SYSTEM) 


JETi: 
JETl 
JETl 
JETl 
JETl 
JETl 
JETl 
JETl 
JETl 
JETl 
JETl 
: JETl 
JETl 
JETl 
I JEtl 
JETl 
JETI 
JETI 
JETI 

JETI 

JETI 

JETI 

JETI 


(/2X*25HVEL0CITIES INDUCED BY JET,12*24H - JET COORDINATE ,SJET1 


1 YSTpm/4X1HN*6X4HXo/r,6X4HYP/R*6X4HZP/R*7X3HU/V9X3HV/V9X3HW/V) , 
719 FORMAT (3E13.6) ^ - 


MZZZ=1 

RAD=180./3. 1415926 


■ 1-3- 


INPUT 


NOTE 


IF 

IF 

IF 

IF 


XIN=5 * 
K IN.GT.6, 

KOUT=6 


INPUT 

INPUT 


FIELD POINTS VIA 
FIELD POINTS VIA 


* PRINTED OUTPUT ONLY 


JETI 
JETI 
JETI 
JETI 
JETI 
' JETI 
CARDS JETI 
data SETJETI 
, JETI 

JETI 


KOUT.GT.6* VELOCITIES OUTPUT IN DATA SET JET.l 


KIN MUST, NOT EQUAL KOUT 

10 read (5*702) title ,v. 

READ(5*701) njet*np*ncyl*nprnt*kin.kout.ds 

IF (KIN .LT. 5) KIN = 5 ■ - 

IF (KOUT ,LT. 6) K0UT=6 

-INPUT INDIVIDUAL JET PARAMETERS 

DO 16 J=l*NJET 

read (5*700) GAMVJ( J) *RJET(J) ,XQ( J),Y0(J) ,ZQ( J) 

DO 11 N=1*NCYL : 

read (5*700) XclR( J*N) * YCLR ( J*N ) ,ZCLR ( J*N ) *RGR ( J *N ) *THETA(!J.N) 

continue 

INPUT EIELD POINT COORDINATES 


11 

16 


DO 12 N=1*NP 

1? READ (KIN*700) Xp (N ) * Yp ( N ) *Zp ( N ) 

SET UP TABLE OF JET CENTERLINE PARAMETERS 


- 


JETI 

JETI 

JETI 

JETI 

JETI 

JETI 

JETI 

JETI 

JETI 

JETI 

JETI 

JETI 

JETI 

JETI 

JETI 

JETI 

JETI 

JETI 

JETI 

JETI 

JETI 

JETI 


001 

002 

003 

004 

005 

006 

007 

008 

009 

010 

011 

012 

013 

014 
0,15 
016 

017 

018 

019 

020 
021 
022 

023 

024 

025 

026 

027 

028 

029 

030 

031 

032 

033 

034 

035 

036 

037 

038 

039 

040 

041 

042 

043 

044 . 

045 

046 

047 

048 

049 

050 

051 

052 

053 

054 

055 

056 

057 

058 

059 

060 
061 
062 

063 

064 

065 
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non. r»nr» nno 


00 14 J=1.NJET 
SCLR( J»1 )«0,0 
no 13 N=2»NCYL 

SR = (XCLR( J*N)-XCLR( J»N-1 ) )**2 + 
1 (ZCLR(J»N)-ZCLR« J»N-1 ) )**2 

13 SCLR(J.N)=S0RT(SR) + SCLR«J»N-1) 

14 CONTINUE 


<YCLR( J*N)-YCLR( J.N-1) )**2 


+ 


PRELIMINARY OUTPUT 


WRITE (6»710) title 
WRITE (6*713) 

WRITE (6*714) nS.KIN*KOUT 
IF (XIN .EQ. XOUT) GO TO 10 
DO 15 N=1*NJET 
DSR=bS/RJET(N) 
write (6*711) N*DSR 
DO" 15 'iJ=l *NCYL 



IF (J- 

1) 150* 

150*15 

150 

WRITE 

(6*712) 

XCLR ( 


1 


RGRIN 


GO TO 

15 


151 

WRITE 

(6*712) 

XCLR( 


1 


RGR(N 

15 

continue 



DO 192 

J=1 *NP 



UP ( J ) = 

0.0 



VP( J) = 

0,0 



1 

N* J) *YCLR(N* J) *ZCLR(N*J) *SCLR(N*J) *THETA( N*J) 
*J) *RJET(N) *XQ(N) *YO(N) *Z0(N) *GAMVJ(N) 

N* J) *YCLR'(N* J) *ZCLR (N*J) *SCLR ( N*J )* THETA ( N *j ) 
*J) 


192 WP(J)=0.0 


DO 40 M=1*NJET 

IF (NPRNT.NE* 0) WRITE (6*718) M 
DO 19 J=1 *NP 


U( J) =0.0 


V( J)=0.0 


19 W( J)=0.0 

SREND=SrLR(M.NCYL) 

DSR=DS/RJET(M) 


transform FIELD POINT COORDINATES TO ENGINE SYSTEM 


190 DO 191 J=1*NP 

XPR( J)=(-XP(J)+X0(M) )/RJET(M) 

YPR( J)=( YP( J)-YQ(M) )/RJET(M) 

1 91 ZPR( J)=(-ZP( J)+ZQ(M) )/RJET(M) 

call corect (np*xrr,ypr*zpr*dsr*m.ncyl*xclr*yclr*zclr*sclr»rgr* 

1 THETA) 

SR=-nSR/2.0 
. JSR=1 
20 SR=SR+OSR 


LOCATE individual VORTEX RINGS 

21 IF ( SR-SCLR(M* JSR)) 23*25*22 

22 JSR=JSR+1 

|F( JSR.GT.NCYL) go to 51 
GO TO 21 

25 XG=XCLR(M»JSR) 

YG=YCLR(M*JSR) 

ZG=ZCLR(M*JSR) 

RG = R,GR(M*JSR) , 

thg=theta(m* JSR) /rad 

GO TO 30 

23 DELTA= (SR-SCLR (M*JSR-1 ) ) / ( SCLR ( M* jSR ) -SCLR ( M . jSR-1 ) ) 
XG=XCLR(M*JSR-1)+(XCLR(M*JSR)-XCLR(M*JSR-1 ) )*0ELTA 
YG=YCLR(M*JSR-1 )+(YCLR(M*JSR)-YCLR(M* JSR-1 ) )»DELTA 
ZG=ZCLR(M.JSR-1 ) + {ZCLR(M*JSR)-ZCLR (M*JSR-1 ) )*DELTA 


JETI 

066 

JETl 

067 

JETI 

068 

JETl 

069 

JETI 

070 

JETl 

071 

JETl 

072 

JETl 

073 

JETl 

074 

JETl 

075 

JETl 

076 

JETl 

077 

JETl 

078 

JETl 

079 

JETl 

080 

JETl 

081 

JETl 

082 

JETl 

083 

JETl 

084 

* JETl 

085 

JETl 

086 

JETl 

087 

* JETl 

088 

JETl 

089 

dETl 

090 

JETl 

091 

. JETl 

092 

JETl 

093 

JETl 

094 

JETl 

095 

, JET.1 

096 

JETl 

097 

JETl 

098 

JETl 

099 

JETl 

loo 

JETl 

lOl 

JETl 

102 

JETl 

103 

JETl 

104 

JETl 

105 

JETl 

106 

JETl 

107 

JETl 

108 

JETl 

109 

JETl 

110 

JETl 

111 

JETl 

112 

JETl 

113 

JETl 

114 

JETl 

115 

JETl 

116 

JETl 

117 

JETl 

118 

JETl 

119 

JETl 

120 

JETl 

121 

JETl 

122 

JETl 

123 

JETl 

124 

JETl 

12 5 

JETl 

126 

JETl 

127 

JETl 

128 

JETl 

129 

JETl 

130 

JETl 

131 
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oriri non r>nr> oori. nno 


RG = RGR(M.JSR-1)+(RGR(M.JSRJ-RGR(M»JSR-UJ*DELTA 
THGsTHeTA(,M.JSR-l J + ( THETA (Ml JSR J-THETA(M.JSR-1 ) >*0£LTA 
THG=ThG/RAO. 

30 continue 

SNTh=SIN(THG) 

CSTh=C0S(TH6» 

RGAMR=RG •>; 

00 38 N«liNP 

XIPRa(XPR(N)-XG)*CSTH + ( 2PR ( N ) -2 g > *SNTh 
ETAR=-(YPR tNI-YG) 

2ETaR= (XPR(N)-XG)*SNTH - (2PR(N)-ZG)*CSTH 
RPR=SQRT(ETAR*»2 + 2ETAR»*2> 

CALL VRING(RGAMRiXIPRiRPRiUGAMiVGAM) 

IF (RPR - l.OE-05) 33i33i3* 

33 OUMU=UGAM*CSTh 

DUMVaO. 'V0-.> 

oumw=ugam*snth . • 1 • 

GO TO 35 ' - - '.U 

3A DUMU=UGAM*CSTH + VGAM*2ETAR/RPR*SNTH - 

dumvs-vgam*etar/rpr •: r 

•DUMW=UGAM*SnTH - VGAM*2ETAR/RPR*CSTH 
35 UGAM=DUMU 

VGAMsDUMV ‘ 

WGAMaOUMW 

■ ; ■; ■ ■ 

CORRECT VORTEX RING STRENGTH FOR RADIUS EFFECT 

U(N)=U(N)+UGAM*GAMVJ(M)*DSR/RGAMR ; 

W(NI=W(NI+WGAM*GAMVJ(MJ«DSR/RGAMR ■•.■ ■■ 

38 V(N)=V(N)+VGAM»GAMVJ(M)*0SR/RGAMR 

NOTE.. U(N)iV(N)fW(N) ARE VELOCITIES INDUCED , I N ENGINE SYSTEM ' 

IF (Sr.lT.SrenD) GO TO 20 

51 CONTINUE 

DO 52 N=liNP 
UP(N)=UP(N)+U(NI 
VP(N)=VP(N)+V( N) 

52 WP(N)=WP(N)+W(N) . . . . . .. 

IF (NPRNT.EO.O) go To AO 


OPTIONAL OUTPUT 


i 


DO 50 N=1 iNP 

50 Write (6»T16) NiXPr{N)iYpr(N).2PR(N)iU(n»iV(N).W(N) 
AO CONTINUE 

' WRITE (6i717) 

WRITE (6i715) 

OUTPUT . INDUCED VELOCITIES IN WING SYSTEM 

DO A1 N=liNP 
UP(N)=-UP(N) 

WP(N1=-WP(NI 

A1 WRITF (6i7l6)NiXP(N) iTP(N) i2P(NIiUP<N) iVP(N)iWp(N) 
IF (KOUT .LE. 6) GO TO 60 

generate INDUCED VELOCITIES DATA SET 

WRITE (ROUT. 702) TITLE 

DO a2 N=1 iNP ' 

A2 WRITE (KOUT.719) UP ( N.) i VP { N ) iWP ( N ) 

END FILE XOUT 

60 IF (KIN .LE. 6» GO TO 10 
REWIND KIN. 

GO TO 10 
END 


JETl 132 
JETl 133 
JETl 13A 
JETl 135 
JETl 136 
JETl 137 
JETl 138 
JETl 139 
■JETl lAO 
JETl lAl 
JETl 1A2 
JETl 1A3 
JETl lAA 
JETl 1A5 
■'JETl 1A6 
JETl 1A7 
JETl 1A8 
JETl 1A9 
■ JETl 150 
JETl 151 
' -JETl 152 
JETl 153 
-JETl 15A 
JETl 155 
■JETl 156 
JETl 157 
JETl 158 
JETl 159 
JETl 160 
JETl 161 
JETl 162 
JETl 163 
JETl 16A 
JETl 165 
JETl 166 
JETl 167 
JETl 168 
..JETl 169 
JETl 170 
JETl 171 
JETl 172 
JETl 173 
JETl 17A 
JETl 175 
JETl 176 
JETl 177 
JETl 178 
JETl 179 
■'JETl 180 
A JETl 181 
JETl 182 
JETl 183 
JETl 18A 
JETl 185 
JETl 186 
JETl 187 
JETl 188 
JETl 189 
JETl 190 
JETl 191 
'"JETl 192 
JETl 193 
JETl 19A 
JETl 195 
JETl 196 
JETl 197 
JETl 198 
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VS'O'O ^ 


SUBROUTINE CORECT '( NP *XPR iYPR ,ZPR ,DSR .M.NCYL .XCLR* YO.R *2CtR .SCLR . JET2 
1 RGR. THETA) -• JET2 

: , ■ • . . JET2 

(• . CORRECT FIELD POINT LOCATIONS To AVOID VORTEX RING SINGULARIT IESJET2 

; , JET2 

DIMENSION XPR( 220) . YPR(220 ) .ZPR (220) .XCLRl A.IOO) »YCLR(4* 100) * JET2 

' ,■ 1; ZCLR(A»100) tRGR(4»100.)»SCLR(4»100) » THET A ( 4 » 100>) » NFP ( 220 ) JET 2 

' • '■■■•' '■ .. . . JET2 

' JSR=1 JET2 

■ . SR=-DSR/2.0 . ■ ‘ ..;^‘‘JET2 

i ..DO 11 J=1«NP .... . •- • JET2 

. l'i',NFP(J)=l . ... JET2 

NCTrO ‘ '■■■■'■ . • JET2 

. ; 7 RAD=57. 2957795 . UET2 

/2G^ SR=SR+DSR -JET2 

■21 IF (SR-SCLR(M» JSR) ) 23.25*22 JET2 

22"JSR=JSR+1 .. • . -JET 2 

i VlF (JSR .GT. NCYL) return ’ * ’ p .*- JET2 

• GO TO 21 .... . •. . . JET2 

' '25 ;xg=xclr(m.jsr) •• - jet 2; 

: YG = YCLR(.'1»JSR) - JET2 

■ i.ZG=2CLR(M«JSR ) .JET2 

RG= RGR(M.JSR) JET2 

THG=THETA(M.JSR)/RAD , • ■■-I-.- JET2 

GO TO 30 ' , ' ■ ■ ' ■ ■ JET2 

23 DELTA=(SR-SCLR(M.JSR-1) )/(SCLR(M,jSR.)-SCLR(.M.JSR-1);,)^ . .. ; JET2 

x'g = XCLR(M.JSR-1) + (XCLR(M.JSR)-XCLR(M»JSR-1),)*DEi1’Ta’'.;...V'/- ■ JET2 

YG = YCLR(M.JSR-1 ) + ( YCLR(M.JSR)-YCLR(MiJSR-l)')*DELW. . ;JET2; 

, 2G = ZCLR(M.JSR-l) + (ZCLR(M.JSR)-ZCLR(M.JSR-^i) )'»DELTA JET2 

, ■ RG= RGR(M.JSR-l) + ( RGR(M.JSR)- RGR (M. JSR-1 ) ) *DELTA ■ , JET2 

TH3=THE.rA(M.iJSR.-l-) + (THETA{M.'jSR)-tHETA''(M»jSR-l ) )»d>ELTA ' ' JET2 

. THG = THG/RA0 ,, ■. JET2 

30 CONTINUP JE.T2 

. SNTh = SIN( THG) : j. JET2 

CS;Th = COS(-ThG) . . . -,JET2 

do' 38 N=1 «NP . , JE.T2 

IF. (NFP(N) .EO. 0) GO TO 38 JET2 


0) GO TO 38 


XIDr=(XPR(N)-XG)*CSTH + <ZPR(N)-ZG)*SNTH 
PTAR=-(YPR(N)-YG ) 

ZETaR= (XPR(N)-XG)*SNTH - (ZPR(N)-ZG)*CSTH 
.,RPR=S0RT(ETAR**2 + ZETAR»*2) 

IF (XIPR+DSR) 35.35*36 
■35- NFP(N)=C 

nct=nct+i •■■ ■ ' ■ " 

.GO TO 38 
36 CONTINUE 

RTEST*ARS(RPR-RG) 

XrT-EST = ApS(XIPR) 

IF. (XTEST .GT. DSR/2.0) GO To'"38'" T'' v • 

NFP(N)=0 

NfIT = NCT+l 

IF (RTEST .GE. OSR) GO TO 38 

' psign=i.o 

IF (XIPR ,LT. 0,0) FSIGN=-1.0 - 
XIPPP=FSIGN*(DSR/2.0-XTEST) 

XDR|N)r=XPR(N) + XIPRP#CSTH 
ZPR(N)=ZPR(N)+XIPRP*SNTH 
38 CONTINUE 

IF InCT ,lT. NP) go to 20 
RETURN 

END ‘ 
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onononnoo 


subroutine VRING (RGAMR.XIPR,RPR.UGAM»VGAM) 

subroutine to compute velocity induced by- a single vortex #ING 

RGAMR - RING RADIUS/REFERENCE RADIUS 

XIPR =. AXIAL DISTANCE TO FIELD POINT/REFERENCE RADIUS 
RPR = RADIAL DISTANCE TO FIELD POINT/REFERENCE RADIUS^ • 
UGAM = AXIAL VELOC ITY/GAMMA 

VGAM n radial VELOCITY/GAMMA ^ ’ 

PI=3. 1415926 

DENM=XIPR**2 + (RPR-RGAMR)**2 

DENP = XIPR**2 + (RPR+RGAMR)**2 ; 

A<2=4.0*RPR*RGAMR/DENP 

CALL ELLIPS (AK2»Z<»ZE1 

UGAM=(Zk-(1.0+2.0*RGAMR*(RPR-RGAMR)/OENM)*ZE) /SQRT(DENP)/(2.0*PI 
VGAM = 0.0 

IF (RPR .LE. l.OE-05) RETURN. ’■ < 

VGAM=rXIPR/RPR/( 2.0*PI*SORT(DENPj » * ( ZK-( 1 ,+2.*RPR*RGAMR/DENM ) *ZE ) 

return — 

END 


JET3 001 
JET3 002 
JET3 003 
JET 3 004 
JET3 005 
JET3 006 
JET3 007 
JET3 000 
JET 3 009 
JET3 010 
JET3 Oil 
JET3 012 
JET3 013 
JET3 014 
JET3 015 
»JET3 016 
JET3 017 
JET3 018 
JET3 019 
JET3 020 
JET3 021 
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SUBROUTINE ELL IPS ( AKSQ.TK *TE > 

t.J. — TABLE LOOK-UP OF ELLIPTIC INTEGRALS ~ 

01 MENS I ON CKK( IpO) tCK 1 100) »CE( lOO) 


L 


■COMMON MZZZ 

■ l!' CKK = argument OF ELLIPTIC INTEGRALS 

'OATa ckkzo, 

1'.;. 

2- w 

3- ..i ''<h"0>L 


-■ 5-l 
■:63L 
- T\,l, 


f. 


I ur cuuikih. i>hcok«lo 

,00».01>.02».03».04».05«.06».07».08*.09».10«-. 
.1A>.15(.16<.17«.18>.19>.20>.21>.22<.23>.2A>. 
.28».29«.30«.31».32..33..34»,35t.36*.37t,38. . 
•42««A3*.44».4S«»46*»47»»48»»49*«50»»51*»52*. 
s 56*957**58*»59*«60»*61*»62**63**64*#65»«66** 
.70».71 t.72».73*.74*»75*.76».77».7P*.79t,80*. 
..i-i-.84«.85«ie6».87»,88»»8O..90..91*.92*.93».94*. 
.98*. 99/ 


.11*. 12*. 13 
.2S..26..27 
.39*. 40*. 41 
.53* .54*. 55 
.67*. 68.*. 69 
.81*. 82*. 83 
.95* .96*. 97 


CK = complete elliptic integrals of first kind 


DATa CK/1. 570796 *1.574746*1. 578740. 1.582 780 *1.586858*1 .591003* 
I 1.595188*1.599423*1.603710*1.608049*1.612441*1.616889* 

1.621393*1.625955*1.630576*1.635257*1.640000*1.644806* 
1 .6496 78*1.654617*1.659624*1.664701*1.669850*1.675073* 
1.680373*1.685750*1.691208*1,696749,1.702374*1.708087* 
'I .713889*1.719785*1.725776*1.731865*1.738055*1.744351* 
1 .750754*1.757269*1.763898*1.770647*1,777519*1.784 519* 
1 .791650 *1.79891 8* 1.806328 *1.81 3884*1-, 82 1593 *1.829460* 
1.837491*1 . 845694*1.854075*1.862641*1,871400*1.880361* 
1.889533*1.898925*1.908547*1.918410*1.928526*1.938908* 
1.949568*1.960521*1.971783*1.983371*1.995303*2.007598* 
2.020279*2.033369*2.046894*2.060882*2.075363*2.090373* 
2.105948*2.122132*2.138970*2.156516*2,174827*2.193971* 
2.214022*2.235068*2.257205*2.280549*2.305232*2.331409, 


JET4 

JET4 

JET4 

JET4 

JET4 

JET4 

JET4 

JET4 

JET4 

JET4 

*JET4 

*JET4 

*JET4 

*JET4 

*JET4 

*JET4 

*JET4 

JET4 

JET4 

JET4 

JET4 

JET4 

JET4 

JET4 

JET4 

JET4 

JET4 

JET4 

JET4 

JET4 

JET4 

JET4 

JET4 

JET4 

JET4 


001 

002 

003 

004 

005 

006 

007 

008 

009 

010 

011 

012 

013 

014 

015 

016 

017 

018 

019 

020 
021 
022 

023 

024 

025 

026 

027 

028 

029 

030 

031 

032 

033 

034 

035 


2.359264*2.389616*2.426933,2,455338*2.492635*2,533335* 
2.578092*2.627773*2.683551 *2.747073*2.820752*2.908337* 
3.016112*3.155875*3.354141*3.695637/ 

CF = COMPLETE elliptic INTEGRALS OF SECOND KIND 

data CE/1-.570796*! .566862*1.562913*1.558948*1.5 54969*1.5 50973* 
1.546963*1.542936*1.538893*1.534833*1.530758*1.526665* 
1.522555*1.518428*1.514284*1.510122*1.505942*1.501743* 
1.497526*1.493290*1.489035*1.484761*1.480466*1.476152* 
1 .471818*1.467462*1.463086*1.458688*1.454269*1.449827* 
1 .445363*1.440876*1.436366*1.431832*1.427274*1.422691* 
1.418083*1.413450*1.408791*1.404105*1.399392*1.394652* 
1.389883*1.385086*1.380259*1.375402*1.370515*1.365596* 
1 .360645*1.355661*1.350644*1.345592*1.340505*1.335382* 
9 1,330223*1.325024*1.31.9788*1.314511*1.309192*1.303832* 

fl . 1.298428*1.292979,1.287484*1.281942*1.276350*1.270707* 

1.265013*1.259263*1.253458*1.247595*1.241671*1.235684* 
C 1.229632*1.223512*1.217321*1.211056*1.204714*1.198290* 

D 1.191781*1. 185183*1.178490*1.171697*1.164798*1.157787* 

E 1.150656*1.143396*1.135998*1.128451*1.120742*1.112856* 

F 1.104775*1.096478,1.087938*1.079121*1.069986*1.060474* 

G 1.050502*1.039947*1.028595*1.015994/ 


JeT4 036 
JET4 037 
JET4 038 
JET4 039 
JET4 040 
JET4 041 
JET4 042 
JET4 043 
JET4 044 
JET4 045 
JET4 046 
JET4 047 
JET4 048 
JET4 049 
JET4 050 
JET4 051 
JET4 052 
JET4 053 
JET4 054 
JET4 055 
JET4 056 
JET4 057 
JET4 058 
JET4 059 


93 



IF (MZZZ) 73t30*3 
3 IFlAKSO-, 99)20*20*21 

21 PARA=0.25*( 1.0-AKSO) 

700 TEST = l.OOE-07 

I F(PARA-TEST) 701 *702*702 
.701 PARA = TEST 
.702 ZLP=AL0G( A./PARA) 

, TK=ZlP*0.5*(1.+PARA)-PARA 
. TE = 1,0+(ZLP*PARA)-PARA . ■ 

GO TO 30 

20 JA = 100.0*AKS0 >'' ' 

JA«1+JA . 

1F(CKK(JA)-A<S0) 22* 23*22 
23 TK=CK(JA) ■ 

TE=CE(JA) 

GO TO, 30 • ■ ‘ 

22 CON= (AICSQ-CKK( JA) )/(CtCK.(,JA + l ).-CKK( JA) 

TK = CKrjA)+CON*(CK( JA-t-D-Cl!: ( JA) ) 

TE=CE( JA)+CON*(CE( JA+1)-CE< JA) ) 

GO TO 30 

73 IF(AICSO-.. 01)721*721*720 ... 

721 PARA = -.23*AKS0 

GO TO 700 . - 

720 Aks6=l.'-A<S6 

GO TO 20- ' i -V '• ■. ■ " ■ 

30 CONTINUE , ' ' 

return ■ ■ ■ ■ '■■■ ■■ 

-END' ■ ... . • •. .... .,■■■ -.V- I 




/ = 


JETA 060 
JETA 061 
JETA 062 
JETA 063 
JETA 06A 
JETA 065 
JETA 066 




JETA 067 
JETA 068 


- . JETA. 069 , 

' " JETA 070 

j,ixv;.JETA 071 
JETA 072 

' ■•xqsvrc. j'eTa' 073 ' ' 


JETA.. 07A 
JETA' 075 

■ /. r uaii&-.'JETA 076 

JETA 077 

JETA 079 
c. 'JETA 080 
• JETA 081 

?••• "iS'l^ET'A ' 082 - 


JE-TA .083 
JETA 08A 

'.-.-.■.i cr;. JETA 085 
. JETA 086 

. 'i'Oo S*;; : JETA 087 ' " 








-! « 



94 



SAMPLE CASE 


In this section a sample case is described to illustrate the use of 
the computer programs presented in this report. The case involves an 
engine wake-wing-flap interference determination. The. configuration 
comprises a swept-wing with flap and one engine mounted underneath the 
wing panel." Both the wing-flap and jet wake flow model programs are 
used in accordance with the interference determination procedure described 
in a previous section. 

For the illustrative sample case, the chosen airframe configuration . 
is the semispan swept wing-flap wind tunnel model of reference 5. A 1.02 
pressure ratio ducted fan was pylon mounted under the semiwing at mid- 
span. The wing was cambered with zero dihedral and had no taper .. Figure 
22(a) shows the configuration in planform and elevation. Figure 22(b) is 
a section normal to the leading and trailing edges of the wing and flaps. 
Figure 22(c) shows how the deflected triple slotted flaps, denoted type 
I with 6 = 30° in reference 5, are idealized to a single flap with 
camber. The flap component deflection angles in the plane normal to the 
hingeline are 10°, 20°, and 30° for the leading, middle, and. aft flap 
components, respectively. The idealized flap deflection angle required 
in the input to the wing-flap program must also be specified normal to 
the hingeline and measures 21.5° in figure 22(c). The wing and idealized 
flap root chords and other streamwise lengths are related to the lengths 
perpendicular to the wing and flap leading and trailing edges through 
the cosine of the sweep angle. The basic wing chord is the chord of the 
original wing before the trailing edge flaps were attached. In the normal 
direction, this chord is 5.5 feet, so the (streamwise) basic wing chord for 
this sample case with a wing sweep angle of 30°_^ is 6.35 feet. 

The parameters required by the wing-flap program will now be 
described. On the wing, a 4 chordwise by 20 spanwise vortex lattice is 
laid out with equal spanwise spacings. Since the idealized flap chord 
is longer than the wing chord, 5 chordwise vortices are specified for the 
flap and the spanwise layout is taken the same as on the wing. Consequently, 
mean surface angles due to camber and twist are required at four chord- 
wise stations on the wing and 5 chordwise stations over the flap semispan. 

On the wing, the angles are input as tangents; on the idealized flap the 
angles are input in radians. These quantities are determined as follows. 



The chordwise locations of the control points are given by the midpoint 
of the 3/4 chord of the area elements in the chordal planes of the wing 
and idealized flap. The wing airfoil . section was specified as NACA 632”416 
(modified) normal to the wing leading and trailing edge. The mean surface 
slopes in the streamwise direction are therefore obtained from the slopes 
associated with the a = 1.0 mean line by a scaling procedure: 

c. cos \l) : (29) 

i,. 

1.0 " ^ ' 

For this case, c^^ = 0.4 and the cosine factor accounts for the sweep. 

The chord c is the basic wing chord. Slopes d (y_/c) /d (x/c) I _ _ , » ■ 

for the a = 1.0 line are obtained from reference 15, at control point 
stations x/c based on the basic wing chord (c = 6.35 feet).- On the 
flap, the segment characteristics were not specified precisely. Conse- 
quently, it is assumed that each segment has no camber. The surface 
slopes are then given by the difference in slope between the segment 
mean line and the idealized flap chord line in planes normal to the hinge- 
line. To obtain the slopes in the streamwise direction, the normal slopes 
are multiplied by cos To complete the input specifications, the 

coordinates of a series of points on the geometric engine centerline are 
required. The necessary information is available in figure 22.. A sufficient 
number of points on the extension to the engine centerline were chosen to 
generate a good theoretical representation of the flow field from the 

engine inlet to a point one wing chprd length aft of the trailing edge. 

. r 

The user is now prepared to run the wing-f lap' program for zero 
angle of attack without externally induced. perturbation velocities. The 
inpUjt deck for this reference (power-off) calculation is shown in 
figure 21. A data set containing the coordinates of the wing and flap 
control points is generated (KCP = 7) for use by the jet wake program 
(KIN = 7) . Downwash and sidewash perturbation velocities induced by wing 
flap vorticity at the specified points along the engine centerline are 
included in the output shown in figure 23(a) . Curves of these induced 
velocities are shown in figure 17(b). 


wing mean surface slope = tan a. = 


©I 

^( 1 ) 
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. Details? of'-the ' jet wake to be included in the sample calculation 
will now ’“be-iset- up --and '.the induced velocity field determined. Based on 
the- reference area 136.8 ft*) -used in reference 5, the fan .thrust 

coefficient-under' consideration is ^ 0.91. From equation (17) the 
corresponding fan -exit ^velocity ratio based on the fan^exit flow area 
is 4.7. For this' -'configuration which has a large centerbddy, the flow 
was assumed to fill the entire area within the duct exit outer diameter. 
With this correction, the velocity ratio becomes 3.46. From figure 5, 
the length -of cthe (jinitial region, I , is 13.6 R arid the radius, R, of 
the wake boundary at the end of- the initial region is 1.97 R^. If we 
assume the total length of the jet to be 150 R^, the final radius of the 
boundary is approximately 9.5 R^ as obtained from figure 4. The engine 
has no incidence with respect to the wing root chord. Thus, assuming no 
downwashor sidewash-effect, the shape of- the jet is showri in the following 
sketch. . , , . . 



Deflection of the engine wake due to wing-flap induced downwash and 


sidewash is calculated in the following manner. The wash velocities 
computed by the wing-flap program with no power effects are shown in 
figure 17(b). The results of figure 17(b) were obtained from the 
computer output of figure 23(a). The points along the wake selected for 
computing the wake deflection are the fan inlet (x/R^ ^,0) , the fan exit 
(1.72), a point below the center of the second flap segment (8.5), the 
end of the initial region (15.3), and a point 150 R^ .downstream of the 
fan exit. Note that the initial region extends considerably downstream 
of the flap trailing edge. ^ 
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At the first two points, the wake is of constant radius equal to 
Rq and is undeflected. At the third point, from figure 17(b), the 
induced downwash is about +0.2V and the sidewash is about -0.15V 
(outboard under this left wing panel). At this point, from equation (27), 
Vj/V is 2.64 and, from figure 5, R is about 1.5 R^. When the wash 
velocities are combined with Vj in accordance with equation (28) 

(with 0=0), the wake deflection angles are = -4.5® and = -3.3®. 
The coordinates of the wake at this point are obtained by laying out a 
straight line from the engine exit (x/R^ = 1.72) to the third point with 
slopes in the vertical and horizontal planes equal to the average of the 
slopes at the second lind third points (or -2.25® and -1.65®, respectively) 

The fourth point (x/R^ =15.3) is downstream of the region in which 
wash velocities were calculated. Since the important part of the wake 
between x/R^ = 8.5 and 15.3 is that part near the aft flap segment, the 
slopes of the wake at x/R^ = 15.3 are taken as the values at x/R^ = 8.5 
which values also occur just downstream of the aft flap segment. Thus, 
the average values of slopes for the wake centerline segment between 8.5 
and 15.3 are the values at either end. 

At the last point, the wake is assvimed to reach the free stream 
direction, so its slopes are zero. The resulting wake characteristics 


are shown 

in 

the following table. 








R/Ro- 

0 (deg. ) 

0 


0 

0 

1.0 

0 

1.72 


0 

0 

1.0 

0 

8.5 


-0.2 

-0.3 

1.5 

-4.5 

15.3 


-0.6 

: -0.8 

1.97 

-4.5 

150.0 


-3.0 

-5.0 

9.5 

0 

Note that 

the 

coordinates are all 

relative to 

a system fixed 

in the jet 


inlet (fig. 9(a)). 

The input deck for this wake calculation is shown in figure 25(a). 

The -wing and flap control points are input via a data set generated by 
the wing-flap program and the induced velocity field is output in another, 
data set (KOUT = 8) for subsequent use by the wing-flap program (KEI = 8) . 
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The wing-flap program is now rerun to obtain the wing-flap loading 
including the effect of the wake-induced velocities. The input is shown, 
in figure 21(b). The aerodynamic parameters in the output, figure 23.(b,) , 
reflect the effects of the jet wake interfering on the wing-flap system. 
The total lift and moment coefficients in the output must be incremented 
by tlie appropriate contribution due to engine thrust 


wing-flap 

■+ 

thrust 

' C ' ' 

Wing-flap 

thrust 


= C + C sin o 

Wing-flap ^ 




= C 


+ C. 


engine, 


m ■ "p C 

Wxng-flap ave 


(30) 


where „ is the vertical coordinate of the engine centerline, 

engine ^ 

For this case, the angle of attack is zero. There is no increment 

in lift but' the pitching moment is increased (Z . „ = 2.07 ft from 

, engine 

figure 22 (b) ) . 


CONCLUDING REMARKS 


Analytical methods have been developed to predict the loading 
distribution on an exter.nally-blown jet-augmented wing-flap configuration 
with a' high-bypass-ratioj turbofan engine. Two potential flow models 
were developed. The first is a nonplanar lifting surface method capable 
of representing a wing, of arbitrary sweep, taper, dihedral, camber, and 
twist with a large, multiply-slotted, partial or full span flap which 
can have large deflection angles. The second is a model of the jet wake 
of a turbofan engine which represents the mass flow, momentum, and 
spreading rate of a turbulent, coflowing jet and which has the capability 
to follow a curved centerline. These models are used in sequence to 
first define the flow field beneath the wing-flap in the absence of 
an engine to locate the jet wake centerline, then predict the flow 
field induced by the jet on the wing-flap, and finally calculate the 
loading bn the wing-flap in the presence of the jet wake. The methods 
yield lift and pitching moment coefficients for the case of symmetry 
about the vertical plane' through the root chord. More than one engine 
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per semispan can be treated, with the provision that if the engine wakes 
overlap, their mutual interference is neglected and their effects are 
considered additive. 

Some data are available on lift and pitching moment on wing-flap com- 
binations with externally blown flaps. With few exceptions, these data do 
not include any direct measurements of the flow at the engine exit or the 
nature of the engine wake spreading. Such data would be useful in checking 
computed values of engine exit velocities and in understanding the sprea- 
ding and deflection of the wake under the wing. Comparisons between pre- 
dicted and measured lift and pitching moment indicate that the method is 
satisfactory for predicting lift on externally blown jet-augmented unswept 
and swept wings with flap deflection angles up to 30 to 40 degrees i In 
this range,, the pitching moment is well predicted for un swept wings but 
underpredicted somewhat (not su-fficiently negative) for swept wings. For 
flap deflections in excess of 40. degrees, with or without power, the method 
begins to overpredict lift, due primarily to the onset of flow separation 
on the flap segments, with overpredictions of 10 to 15 percent at a flap 
angle of 60 degrees. The pitching moments are considerably underpredicted 
at large flap angles. 

The lift that is obtained through wake-wing-flap interaction is sen- 
sitive to the position of the wake relative to the wing chord. Calculations 
made with and without wake deflection due to the wing-induced downwash and 
V sin a upwash indicate significant improvements in the accuracy, of pre- 
diction with inclusion of the wash effects. Since the jet augmentation 
can be modified by changing the location and incidence of the engine 
relative to the local wing chord, the prediction method offers a'means of 
systematically investigating the influence of these two variables on jet 
augmentation. 

The single most important factor in increasing the reliability and 
utility of the prediction method is the wake position determination. A 
systematic investigation could be done using existing overall force and 
moment data to evaluate the degree of detail required in the wake descrip- 
tion, to examine the final velocity field beneath and aft of the wing, and 
to determine the sensitivity of the predicted load distributions to wake' 
position. Such an investigation would provide considerable insight into 
the adequacy of the wake flow, model. This work would benefit greatly. 
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however, by direct flow field measurements made with an EBF model, where 
care is taken to measure engine thrust and exit velocity profiles and 
possibly load distributions on the flaps as well as the flow field. 

Nielsen Engineering & Research, Inc. 

Mountain View, California 

February 1972 r 



' APPENDIX A '' " . 

ARRANGEMENT OF VORTICES ON THE WING-FLAP ; ' 

Calculations were made for a variety of wing-flap configurations to 
provide guidance to the user of the program on the arrangement of the 
vortices on the wing-flap. The spanv/ise and chordwise number of vortices 
and the vortex spacing on the wing and flap were varied to determine the’ j ■ 
effect on the predicted aerodynamic ' forces and moments. As a brief summary 
of the results to be presented, the following conditions were investigated; 

Nominal aspect ratio 3, 5, and 7 untapered wings with., zero and ] 

'SO-d'egree sweep and a flap chord approximately half the ; total'’ 

■ wing-flap chord. • . , I 

' . • . '' * i 

Asii-ect ratio 3.2 untapered wing with 30-degree sweep and: a flap ; 

i ■ r f 

• chord approximately one quarter that of the wing-flap chord.i 

Aspect ratio 3; 2 untapered wing with 30-degree sweep and a part- t | 
sphn flap (64 percent) with a chord approximately half the total- j 

f » 

; wing-flap chord. . , , • ‘ i. ; 

‘ Aspect ratio' 3.2 untapered, wing with 30-degree sweep and a flap i 

,, chord approximately half the to-tal wing-flap chord and engine ; 

' v/ake interaction. ■ ; 

i' ’ • ■ • ‘ . i 

At the end of this appendix some guidelines are given for the 'vortex layout, 
based bn the calculations made. i - “ j 

Configurations '■ - 

The major .part of the work was conducted using the 3p-T,degree swept . 
wing with triple slotted flap (Elap I) of reference 5. This wing, ; is jnpt,. 
tapered and. has a combined flap chord of about 58 percent of the combined--, 
wing'^f lap 'with flap undeflected.- The aspect, ratio is 3 .-2 , The. higher-v;,,,-i;. 
aspect ratio cases were obtained by extending the span an appropriate,,- - ; 
-amount; The, unswept configurations have the same flap and .camber,- arrange- 
ments . The part span flap configuration was obtained .from - the; ;3 ,2 aspect 7 
ratio- swept -wing-flap by reducing the flap length to the- inner--.64 percent 7 , 
of the wing span. The smaller flap chord configuration was obtained i from • 
the 3.2 aspect ratio swept wing-flap by extending the wing -chord and - 
shortening the flap chord so that the flap, reduced to a single flap , segment 
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having a chord one-fourth of the total root chord. This flap is uncambered. 
All moments are taken about a center located at an x station corresponding 
to the 62 percent root chord. 

Wings with Large Flaps 

The first set of results, listed in the table below, are those of the 
basic, aspect, ratio 3.2,,^ swept wing with flap deflection angles of 10/20/30 
degrees at an angle of attack of 10 degrees. 


VORTEX 

LATTICE. 



1 


NCW MSW 

NCF MSF 

- C j^ - 

•;.iu m 

4 X-.- 8. 

5x8 . 

...3.915 

-1.056 

0.0400 

-0.269 

4 x' 8 

8x8 

' 4.037 • 

-1.018 

0.0402 ‘ 

' -0.252 

4x8- ■ • ! 

10 X 8 • 

■ 4.053 - 

. -1.004 

-0.0402 .. 

.. -0.248 

7x8 

8'x 8 

4.038 - 

. -1.028 

: 0.0402 

-0.255 

7x8 

- 10. X 8 

4.054 

1.014 

. 0.0402 

. -0.250 

4x14 

5 X 14 

3.857 

-1.022 

0.0410 

. -0.265 

4 x 14 

8 X 14 

3.977 

-0.984 

0.0410 

-0.248 

4 X- 14- 

■ 10 X 14 

•'-3.993 - 

-0.970 

0.0414 

-0.243 

7 X 14 

' 8 X 14 

3.979 

-0.994 

0.0414 ’ ■ 

-0.250 

4 X 20 

5 X 20 

3.831 

-1.004 

0.0416 

-0.262 

4 X 10 

5 X 12 

3.903 

-1.049 

0.0403 

-0.268 


Lo.ading Results for an aspect ratio 3.2 swept wing-flap at a = 10°. 


The chordwise numbers of vortices {wing/flap) of 4/5 and 7/8 rept-esent 
approximately equal chordwise lengths of the area elements over- both wing 
arid flap. The 4/8 and 4/10 arrangements represent attempts to get a higher 
density of elements on the flap. The spanwise numbers considered are 8, 

14 and 20 elements, all, of- equal spanwise width. For 20 spanwise elements, 
the larger- number ’ of chordwise elements cannot be run because of. size limi- 
tations in the program-; The final case is one in which an 8-spanw-ise , 
element a’-rangement is modified by. dividing each of, the two elements around 
the wing- mid-semispan- into . halves and each :bf the four elements around' the 
flap mid- semi span into halves. - The objective is .to determine the- effect 
of locally -increasing the spanwise- densit.y of elements in the region on -;t 
which an engine wake would impinge. 
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The results for and the span load distribution are shovm in 

figure A-1 for a = 10®. The spanwise variations indicate that the calcu- 
lation has essentially converged with 14 elements. The chordwise varia- 
tions 'iriddcate that 4 elements are sufficient -on the wing> but that 7 or 8 
elements are required on the flap. Figure A-1 (b) shows that the flap span • 
load distribution has converged with 5 chordwise flap elements; but the 
wing load distribution has not. Thus the additional chordwise elements are 
required on the flap to cause the proper interference to be felt on the 
wing. ... . 

Similar . results are obtained for the same parameters at a =0. There 
are considerably larger, changes as a result of. increasing the flap chord- 
wise eluents from 5 to '8, because'- the flap is’ the primary source of lift 
in this case, both directly and by its interference on the wing. The 
calculated values are shown in the table below.- 


VORTEX 

LATTICE* 

^L 

■ Cm 


m L 

NCW MSW 

NCF MSF 

4x8 

5x8 

2.699 

-1.227 

0.0389 

-0..4544 

4x8 

10 X 8 

2.852 

. -1.170 

0.0390 . 

-0.4103 .. 

7x8 

8x8 

2.836 

-1.195 

0.0390 

-0.4212 

4 X 14 

5 X 14 

2.657 

-1.197 

0.0400 

-0.4504 

4 X 14 

; 10 X 14 

2.809 

-1.140 

0.0402 

0.4060 

, 7 X 14 

8 X 14 

2.793 

-1.165 

0.0401 

-0 i,417l 

4 X 20 

5 X 20 

2.639 

-1.182 

0.0404 

-0.4478 

4 X 10 

5 X 12 

2.690 

-1.220 

0.0392 

-0.4530 

V 


Loading results for an aspect ratio 3.2' swept wing-flap at a"-= 0° . 


Finally, it can be seen with these results (comparing 4 .x 8, 5 x -8. 
with 4 X 10, 5 X 12) that if one starts with a uniform spanwise arrangement 
and divides -certain' elements to obtain a locally' denser ar.rang^ent span- ' 
wise, the predicted loading is essentially unchanged from that of the 
orig.inal uniform arrangement., Thus, to improve convergence, by increasing 
the spanwise, number of vortices,-, one must distribute the increase oyer, the- ; 
entire span. Conversely, one may judge the convergence of a spanwise 
arrangement which is locally more dense from the closest uniform spanwise 
arrangement. 
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If the aspect ratio of the basic wing just discussed is increased, 
retaining the sweep, taper, and flap characteristics, a very similar 
pattern occurs. Results for aspect ratios of 5 and 7 at wing angles of 
attack of 10® ar,e presented in the tables below and in figures A-3 and A-4. 
These results indicate that spanwise convergence is obtained with 


VORTEX LATTICE 







n 

P 


C /C^ 
m L 

NCW MSW 

NCF MSF 

^L 


4x8 

5x8 

4.556 

-3.973 

0.0259 

-6.872 

7x8 

8x8 

4.700 

-4.037 . 

0.0260 

-0.857 

4 X 14 

5 X 14 


-3.899 

0.0268 - 

-0.866 

7 X 14 

8 X 14 


-3.962 

0.0269 

-0.854 

4 X 20 

5 X 20 

4.473 

-3.861 

0.0272 

-0.862 

Loading results for an 

aspect ratio 5 swept wing-flap at 

a = 10°. 

VORTEX LATTICE 







n 

c 

m 


CVCt 
in L 

NCW MSW 

NCF MSF 

^L 

4x8 

5x8 

4.963 

-7.698 

0.0188 

-1.55 

4x8 

8x8 





7x8 

8x8 

5.121 

-7.882 

0.0188 

-1.54 

4 X 14 . 

5 X 14 

4.906 

-7.577 

0.0196 

-1.55 

4 X 14 

8 X 14 





7 X 14 

8 X 14 

5.062 

-7.758 

0.0197 

-1.54 

4 .X 20 

5 X 20 

. 4.881 

-7.520 

0.0199 

-1.54 


Loading results for an aspect ratio 7 swept wing-flap at a = 10°. 


14 elements and that the chordwise density must be higher on the (large) 
flap than on the wing to obtain the proper flap-wing interference effects. 

The effect of increasing the flap deflection to 20/40/60 degrees with 
the basic aspect ratio 3.2 swept wing is shown in the table below and in 
figure A-5. The calculations were 


105 


























appendix a 


r 


ANGLE 

OF 

ATTACK 
(deg. ) 

VORTEX 

LATTICE 

I 

^L 

. ^m . 


m L 

NCW MSW 

NCF MSF 

0 

4 X 14 

5 X 14 

4.702 

-1.639 

0.039 

-0.348 

0 

4 X 14 

10 X 14 

4.856 

-1.590 

0.039 

-0.327 

0 

7 X 14 

8 X 14 

4.849 

-1.617' 

0.039 

-0.334 

10 

4 X 14 

5 X 14 

5.601 

-1.336 

0.041 

-0.238 

l6 

4 X 14 

10 X 14 

5.730 

-1.293 

0.041 

-0.226 

10 

7 X 14 

8 X 14 

5.726 

-1.319 

0.041 

-0.230 


Loading results for an aspect ratio 3.2 swept wing-flap with 

large flap deflection. 


made with 14 spanwise elements and various combinations of chordwise ele- 
ments, since the previous calculations indicated convergence with 14 
elements. As was the case for the smaller flap deflection, four spanwise 
elements oh the wing are sufficient, but a denser arrangement must be used 
on the flap. 

The characteristics of wings of zero sweep angle which are otherwise 
identical to the 3.2 aspect ratio swept wing-flap configuration are shown 
in figures A-6, A-7, and A-8 and the tables below for both 0® and 10° 
angle of attack. 


VORTEX 

LATTICE , 

^L 

c 

m 


m L- 

NCW MSW 

NCF MSF 

4 X 8 

5x8 

3.050 

1.841 

0.043 

0.603 

4x8 

8x8 

3.184 

2.028 

0,043 

0.636 

7x8 

8x8 

3.188 

2.021 

0.043 

0.633 

4x14 

5 X 14 

3.000 

1.810 

0.044 

0.603 

4 X 14 

8 X 14 

3.133 

1.994 

0.044 . 

0.636 

7 X 14 

8 X 14 

3.137 

1.987 

0.044 

0.633 

4 X 20 

5 X 20 

2.981 

1.797 

0.044 

0.602 


Loading results for an aspect ratio 2.8 unswept wing-flap at a = 0°. 
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VORTEX, 

LATTICE 

p " 

P 

1 _ _ 

m' ..ly 


„NCF MSF 


^ m > . • ■ 

' 1 

'' 4 X 8 , 

. . .,.-5 X 8 ■ - 

■ -3.640' — 

■ - 2- -.343 " 

- ■b.028-- — 

.4-0->65^^1— 

'4-x 14 ■ 

, ; 5 X 14 

,3 - 592 

■■ 2.358 

. io.q'29"' :: 

■; 0.65^6 

4 X 20 

5 X 20 . 

_3.571 

, 2.344 

,0.029 . 

• 0.657 

1 


Loading results, for an aspect ratio 4.4 uhswept wing-^fiap at- a -i; 


- -VORTEX 

LATTICE-- 


.i 


; 

. c 

' m r . .r 

c /c. 

NCW MSW' 

NCF MSF ‘ '■ 

4x8 

.5x8 , . 

4.032,.. 

2.777 , 

, 0.020 

0.688 







4 X .14' : 

5 ,x 14 . 

■..■3'.988. . 

• .2.742;., 

3.i.0;.031 -vv,r 

■\i:. 0 .687 -■'■ ■.i'.dv' 

4 X '20 ■' 

5 X 20 

3.968 ■ 

2.f27 

''■D^021''’'' 


^ i..- 


. . : , -1 • 




Loading results for an 

aspect ratio 6.1 unswept wing-flap 

at*'"'ci '=‘'6'°.''^ 


■■ ■ - 


:.;v . 

.'v.r 


■ • . •»•. 





, . . . . 

VORTEX 

LATTICE 





NCW MSW 

NCF MSF 

' ^L ’■ 

C 

m 

"c VC*' ■ 
1 :■?. 


, 4x8 

5x8 

4.238 

3.374 

0.045 

0.795 

4x8 

8x8 ' . 

4 . 357 ■ 

3.547 

'0':,o,4'5’:::;:‘ 

■:vjoV8i.5'"“"‘" 

7x8 

8x8 

4.361 

3.541 


/'•' O’: 812 

4 X 14 

5 X 14 

4.175 

3.324 

b-.04 6 '■ 

'8'1t96'^’"- 

4 X 14 

8 X 14 ■ , 

4.290 

■3'. 494' 

'O'. 04 6 

' ■ -O'; 81-4-—“- 

; 7'‘x 14 

8 X 14 

4.295 

3.489 

0.046 

0 V.813.' 

4 X- 20 

5 X 20 

4.147 

3,;303 i 

0.046 

0 :;797'r 


Loading results for an aspect ratio 2.8 'uhswept wing-flap jat «,d .= 10°. !; 
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. VORTEX 

LATTICE 

c 

n 

1 

m L 


NCF MSF 

'"L 

^m 

4x8 

• 

5x8 

5.080 

4.198 

0.029 


4 X 14 

5 X 14 

5.018 

4.145 

0.029 


4 X 20 

5 X 20 

4.990 

4.122 

0.029 


Loading results for an aspect ratio 4.4 unswept wing-flap 

at a = 10° . 

VORTEX LATTICE 



1 

c /c^ 

m L 

NCW MSW 

NCF MSF 

'-L 

m 

4x8 

5x8 

5.650 

4 .766 

0.021 

0.843 

4 X 14 

5 X 14 

5.593 

4.712 

0.021 

0.843 .. 

4 X 20 

5 X 20 

5.566 

4.689 



0.021 

0.842 


Loading results for an aspect ratio 6.1 unswept wing-flap at a = 10°. 


The results for zero sweep are similar to those for 30-degree sweep in terms 
of convergence. The gross force and moment parameters essentially converge 
to within 1 percent with 14 spanwise elements. The (large) flap requires 
a denser chordwise spacing than the wing to effect convergence, as is 
indicated by the span load distributions. 

Wings with Small Flaps 

A series of calculations was made with an aspect ratio 3.2, 30 degrees 
swept, untapered wing having a smaller flap system than the one considered 
in the previous section. The flap considered here is a single, full span 
flap segment having a chord equal to 25 percent of the combined wing-flap 
chord with flaps up. The flap deflection is 21.5°, which is the mean 
deflection angle for the 10/20/30 degrees flap considered previously. 
Calculations were made for angles of attack of 0 and 10 degrees. All cases 
were run with 14 spanwise vortices . The results are shown in the table 
below and in figure A-9 . 
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ANGLE 

OF 

ATTACK 
(deg. ) 

•VORTEX LATTICE 

^L 

^m 

s./s 

1 

c /c^ • 

m' L 

NCW MSW 

NCF MSF 

0 

7 X 14 

2 X 14 

0.838 

-0.309 

0.073 

-0.369 

0 

4 X 14 

5 X 14 

0.839 

-0.305 

0.073 , 

-0.364 

• 0 

. 4 X 14 

8 X 14 

0.840 

-0.305 

0.073 

-0.363 

10 

7 X 14 

2 X 14 

1.544 

-0.237 

0.073 

-0.153 

10 

4 X 14 

5 X 14 

1.545 

-0.233 

0.-073 

-0.151 

10 

4 X 14 

8 X 14 

1.546 

-0.233 

0.073 V 

'.,./-0 ."151 ' 


Loading results for an aspect ratio 3.2 swept wing with small, flap. 


; The tabular results and those presented in figure A-9 indicate no 
essential differences in computed loads between the three cases for each 

t 

angle of atta.ck. The case with ' 7 chordwise elements on the wing and 2 on 
the flap represents essentially the same element chordwise length on both 
flap and wing, whereas the other two represent denser spacings on the 
flap. For this size flap, the uniform spacing along the entire wing-flap 
chord is sufficient to obtain the proper wing-flap interference. 

I 

It should be noted that as the flap chord decreases relative to the 
wing chord, the case of a wing alone is approached. In this case, one can 
use the more extensive calculation presented in reference 10 as a guide to 
the selection of the vortex-lattice arrangement. 

Wings with Part Span Flaps 

The method is capable of treating a partial span flap which protrudes 
from the wing trailing edge. In order to investigate the effect on the 
load distribution of the positions of the trailing legs of the horseshoe 
vortices relative to the flap tip, some calculations were run for the 
basic 30 degree swept, aspect ratio 3.2 wing with the 58 percent chord 
triple slotted flap. The flap however was considered to extend only from 
the root chord to the 64 percent semispan station. The spanwise area 
.element arrangements of the two vortex configurations are the following; 
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•The' layout' oh'- the^Mng is basically a:^ 5' x 14 arrangement. The' flap has 
8 ■'chdrdwise^^^ the same spanwise element size as the wing. Since 

the' %i'ap ■ sp'a^ is only -64 percent’ of the wing span, the flap has 9 spanwise 
elemeh'ts.' " 'Tn"'‘€he" case 'bn the .lef t^'a^ the Y = cbnstant plane ■ at the- • 
iiap""tip' -bbntk ins- trailing’ 1 both wing and flap vortices-. The wing 

vorftbx' tr’aiiing legs" lie -in the Z = 0 ’ plane, while the flap ’^^ortex- - ’'’' -’ 
tfaili'hg'-iegS’' lie-' in the’" plane of the flap. Irt the case on the right, " the- 
two spanwise elements on the wing near the 64 percent semispan station have 
been combined into one element so that no wing vortex legs lie ,in the same 
Y plane as the flap tip chord. Thus, the wing element arrangement is a 
5 X 13 and*- the, flap arrangement, as before, is an 8 x 9. 

The computed results for the span load distribution at a = 0 are 
shown in f igure-A-lO There is a slight difference in .wing loading just 
outboard bf the’ ^ flap-. j The influence on the overall loading of this diffe- 
rence is smaii,;;^howeyer, . as' shbwn in the following table . 


VORTEX 

LATTICE 

— 


, - 

C /C^ 
ra L 

NCW MSW 


Hi 

m 

5 X 14 

8x9 

1.757 

-0.159 

0.061 

-0.0904 

5 X 13 

8x9 

1.771 

-0.162 

0.059 

-0.0913 


Loading results for a low aspect ratio swept wing-flap with 
part span flap at a = 0® . 
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Thus, the coincidence between any Y-plane containing the wing vortex 
trailing legs and the Y-plane containing the tip flap vortices is not 
important and shbuld not have to be considered in laying out the vortex 
arrangement. 


. Wings with Large Flaps and Engine Wake Augmentation 

Calculations were made for the basic 30 degree swept, aspect ratio 
3.2 untapered wing with the 58 percent chord flap deflected 10/20/30 degrees 
with engine wake impingement. The purpose of these calculations is to 
investigate the sensitivity of the wake-induced loadings to the size and 
layout of the area elements on which the engine wake impinges. The basic 
case is a lattice layout employing 8 spanwise elements on the wing and 
flap, 4 chordwise elements on the wing and 5 chordwise elements on the flap. 
This arrangement was perturbed by dividing sets of elements spanwise into ^ 
halves near the mid-semispan location, under which the engine wake center- 
line is assumed to lie, in accordance with the following sketches . The \ 
first case is the uniform spanwise arrangement, the second has 2 additional 
elements on the wing and 4. on the flap, and the third case has 5 additional 
on the flap. The engine; thrust coefficient (for one engine) was taken to 
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X 



be 0.9, a relatively high thrust level. The force and moment results for 
a = 10° are given in the following table. 


LATTICE ARRANGEMENT 



^m 

S/^L 

: 

NCW MSW 

NCF MSP 

4x8 

5x8 

0 

3.915 

-1.056 

0.040 

-0.269 

4 X 10 

5 X 12 

0 

3.903 

-1.049 

0.040 

-0.268 

4 x. lO 

8x12 

0 

4.025 

-1.011 

0.041 

-0.251 

4 X 10 

8 X 17 

0 

4.021 

-1.007 

0.041 

-0.250 

4x8 

5x8 

0.9 

5.853 

-2.869 

0.037 

-0.490 

4 X 10 

5 X 12 

0.9 

5.567 

-2.744 

0.029 

-0.493 

4 X 10 

8 X 12 

0.9 

5.675 

-2.640 

0.040 

-0.465 

4 X 10 

. 

8 X 17 

0.9 

5.726 

-2.718 

0.040 

-0.473 


Loading results for an aspect ratio 3.2 swept wing-flap at 
a = 10° with engine wake inpihgement. 


The forces and moments for C = 0.9 do not include the direct contribution 
of engine thrust. The tabulated results indicate a considerably larger 
effect in going from 5 to 8 chordwise elements on the flap than in increas- 
ing the spanwise number on the flap from 12 to 17 without wake augmentation, 
as was the case in previous calculations. With wake augmentation; increases 
in both .spanwise and chordwise number on the flap cause comparable changes 
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in lift and moment. With wake augmentation, it would not appear necessary 
to employ any greater a number of elements chordwise and spanwise than is 
necessary to achieve convergence without wake augmentation, insofar as lift 
is concerned. The moment is more sensitive. to spanwise number, at least 
for swept wings, and might require a locally denser arrangement on the flap. 

The span loading distributions for these cases are shown in figure A-11. 
Figure A-11 (a) shows a comparison of the four lattice arrangements for 
C =0. As was indicated previously, the lattice variation has essentially 

y . . . . - 

no influence on the flap loading, but the larger chordwise number shows 
slightly higher induced loadings on the wing. For the case of engine 
thrust, figure A-ll(b), the span loading results are again very similar on 
the flap. The major effect on the wing is caused by increased chordwise 
number of vortices-, with little effect due to adding spanwise vortices. The 
effect of engine wake augmentation for the largest number of vortices is 
[shown in figure A-ll(c). The flap loading 1 is greatly increased in. the 
iregio'n of direct impingement and slightly increased both inboard and out- , 
board of tHe impingement region. The wing loading is increased oyer the 
entire span, with the greatest increments occurring soi^ewhat outboard of i 
the 50 percent semispan station due to wing sweep. I 

1 

Recommended Procedure for Vortex Arrangement 

i The following comments are offered with respect to selecting, a vortex 

/ 

arrangement for a wing-flap configuration based on the results of. the 
.calculation's described above and the results of reference 10. 

Spanwise number. - Convergence on the four gross aerodynamic properties 
examined (C , C, Cr>./Cj, C /C^ ) to within about one percent was obtained 
fusing 14 ■ equally spaced elements on the semispan for nominal aspect ratios 
from 3 to 7 and sweep angles of 0 and 30 degrees and untapered planforms. 

The results of reference 10 indicate faster convergence as the taper ratio 
decreases. Thus, it is suggested that the spanwise number not exceed 14 
equally spaced elements. It is noted that if an unequal spanwise . spacing 
is employed to create a . locally denser spacing, the degree .of convergence 
should be assessed by the nearest equally spaced arrangement. . ^ 

. 1 . j:~ Chordwise number'. -The choice- of chordwise arrangement .depends prin- 
t'cipally on the flap size. For a flap whose chord is- one-quarter' or less 
than.. that 'of the combined wing-flap, the wing-flap mutual interference and 
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the gross loading characteristics are adequately predicted by an equal 
spacing on the wing and flap. The convergence then depends on the total 
number of elements on the wing-flap. The results of reference 10 for a 
wing alone indicate very small differences between 4 and 6 elements. There 
should,, of course, always be at least one row oh the flap. If more chord- 
wise definition of the flap loading is desired, additional" elements can be 
placed on the flap without affecting the gross loading. 

For a flap whose chord is greater than one-quarter that of the combined 
wing-flap, it is necessary to have more chordwise elements on the flap than 
on the wing to properly model the wing-flap mutual interference. It is 
suggested that twice as many elements be used on the flaps as on the wing. 

The wing-flap aspect ratio, sweep, taper, and flap deflection angle 
appear to have little influence on convergence and generally need not be 
considered. 

Other considerations.- One consideration that deserves comment is the 
effect on calculated loadings of the element arrangement in the region (s) 
of engine wake impingement. Small vertical and/or lateral changes in the 
engine wake centerline can cause the wake to "cover" or "uncover" area 
elements which can produce unrealistic discrete changes in wake-induced 
loading. Calculated results indicate, however, that if a sufficient number 
of uniformly -spaced elements both .chordwise and spanwise are used to achieve 
convergence on engine-off characteristics, the element sizes will be suffi- 
ciently small that the results will not be unduly influenced by changes in 
wake centerline location, at least for wings of low sweep. At larger sweep 
angles, the pitching moment appears sensitive to the spanwise number on the 
flap, and it may be desirable to have a locally denser spanwise arrangement 
in the region of wake impingement on the flap. 

Finally, the end effects due to part-span flaps do not appear to be 
sensitive to the precise arrangement of area elements in the spanwise 
region of the flap tip. 
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(a) Variation of lift and pitching-moment coefficients 
with vortex arrangement 


Figure A-1.- Predicted load characteristics of a 30° swept, 
aspect ratio 3.2 untapered wing with a large, triple 
slotted flap at a = 10°. 
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(a) Variation of lift and pitching-moment coefficients 
with vortex arrangement. 


Figure A-2.- Predicted load characteristics of a 30° swept, 
aspect -ratio 3.2 untapered wing with a large, triple 
slotted flap at a = 0°. 
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(b) Variation of span load distribution .with vortex arrangement. 














APPENDIX A 



Number of; spanwise- vortices, MSW, MSF 


(a) Variation^ of lift and pitching-moment .p'oe.ffdcients 
with vortex arrangement. 

Figure A-7.- Predicted load characteristics of an unswept 
aspect ratio.4. 4 untapered wing with a large, triple 
-''.^slotted flap at a = 0°: • / 
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Nun±ier of spanwise vortices, MSW, MSF 

(a) Variation of lift and pitching-moment coefficients 
with vortex arrangement. 


Figure A-8.- Predicted load characteristics of an unswept 
aspect ratio 6,1 untapered wing with a large, triple 
slotted flap at a = 0°. 
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Figure^ A-9.:r,;Conclucled . 
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: Figure 2.- Coordinate systems for wing-flap 
and horseshoe vortices. 
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Figure 6.- Vortex ring wake model and velocity 
profiles for V./V = 6. 


Figure 7.- Momentum in the initial region 
of an axisymmetric turbulent jet wake. 





Figure 8.- Mass flow in the initial region of an 
axisymmetric turbulent jet wake. 






(a) Jet coordinate systiem. 



(b) Ring coordinate system. 
Figure 9.- Jet wake nomenclature. 
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Figure 13.- Vortex-lattice network on an unswept wing with 
a slotted trailing-edge flap and two engines per semispan. 



Theory 


Data 



Figure 14.— Comparison of measured and predicted characteristics of an 
unswept wing with double— slotted trailing— edge flaps, slotted 
leading-edge slat, and four turbofan engines, . 




Figure 15.- Characteristics of an unswept wing with externally-blown, 
double-slotted trailing-edge flaps deflected 10/30°. 




Engine 



(b) Predicted downwash distribution induced 'by wing-flap 
in uniform flow along the engine centerline. 
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Figure 16.- Characteristics of an unswept wing with externally-blown, 
. double-slotted trailing-edge flaps deflected 30/60 . 



Engine 



(b) - Predicted downwash distribution induced by wing^^fiap 
in uniform flow along the engine centerline. 
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(b) Predicted dovmwash distribution induced by wing-flap in uniform 
flow along the engine centerline. 
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Item NO. 1: Format (20A4) , any alphabetic or numeric information 

(1 card) 

Column NO. 1«»8Q 

Program Variable TALK > it 

Data * - I I 


Item NO. 2: Format (2PS. 1,315), decimal point required In first two variables 

(1 card) 


Column NO. 

5 

10 

15 

20 

25 

“J 

Program Variable 
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Data 








Item NO. 3: Format (8F10.S), decimal point required 

(1 card) 


Column NO. 

10 

20 

30 

- 40 

50. 


Program Variable 

PSIWLE 
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PHID 

f 
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Item No. 4: Format (8F10.5), decimal point required 

(1 card) 
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1 lOJ 
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50 

60 

n 
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ZF 
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Data 
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Note: If MFLAP ■ 0 (see item 2) , insert blanX card for this 

item. 


Item No. 5: Format (715) 

(1 card) 


Column No. 
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Program Variable 
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Data 
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Item No. 6; Format (8F10.5), decimal point required 
1 card) il) 
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. Data 
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30 
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50 
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Figure 19,- input format for wing-flap program. 
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Item No. 12: Format (1F10.5, 2110, F10.5), decimal point required in first 

(1 card) variable. 
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Program Variable 
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Item No. 13; Format (FlO.5) 
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Item No. 14 (option) ; 
1 card) 
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Program Variable 
Data 


Format (3E13.6) 
( 1 ) 


13 
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39 
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UEI(l) 

VEI (1) 

WEI (1) 
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Note: These quantities are read in via cards as shown 

here when KEI = 5 (see item 12) ; if KEI = 0 
or KEI = 8, omij: this item. 


Column No. 
Program variable 
Data 
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39 
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Note: If MFLAP « 0 (see item 2) this is the last card 
in this item; if MFLAP = 1, more cards follow. 
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Figure 19.- Concluded. 
















(a) Mean surface detail for a wing with 
camber, twist, and dihedral. 



(b) Mean surface detail for wing— flap combinations shown 
for a rectangular— untwisted wing with dihedral. 


Figure 20.- Definitions of local angles and 6^. 
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Figure 21(a) .- Input deck for wing-flap 
program, power off. 
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Figure 21(b).,- Input deck for wing-flap 
progreun, power on. 
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S»EPT WING, flap I (NASA TMX 62079J PLAP ANGLE = i0/20/j0, ALPHA= 0 , NQ JET 
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Figure 23Cal.'<' Output from wing-flap 
program, power off. 
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-13.4125 

0.0217 

26.2437 

0.3687 

0.6410 


-13.0628 

-13.4125 

0.3817 

28.2437 

0.3687 

0.6079 

173 

-14.1181 

-13. 4125 

0.7417 

28.2437 

0.3687 

0.3746 

174 

-15.1734 

-13.4125 

1.1017 

26.2437 

0.3667 

0.4196 

i.75 

-16.2287 

-13.4125 

1.4617 

28.2437 

0.3667 

0.1517 

176 

-12.4'261 

-14. 1375 

0.0217 

28.2437 

0.3687 

0.4821 

177 

-13.4814 

-14.1375 

0.3817 

28.2437 

0.3687 

' 0.4849 

178 

-14.5367 

-14.1375 

0.7417 

i8.2437 

0.3687 

U.2492 

179 

-15.5920 

-14. 1375 

1.1017 

28.2437 

0.3687 

0.2987 

130 

- 16.6472 

-14. 1375 

1.4617 

28.2437 

0.3667 

0.0829 
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SWEPT HINGi FLAP I (NASA TMX 62079) FLAP ANGLE > 10/20/30, ALPHA- 0, C(MUi>0.9 . 
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30.0000 
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Figure 23 (b) Out^t- from wing-flap 
, progrciin, with power. . 
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CONTROL POINT COORDINATES ANO SLOPES EXTERNALLY INDUCED VELOCITIES 

MEAN SURFACE 


J 

X 

Y 

Z 

SLOPE 

U/V 

. V/V 

W/V 

WING 

CONTROL 

POINTS 






1 

- 0.9124 

- 0.3625 

- 0.0000 

- 0.0568 

- 0.00204 

- 0.02287 

0.00690 

2 

- 1.8499 

- 0.3623 

- 0.0000 

- 0,0295 

- 0.00016 

- 0.02206 

0.00664 
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- 2.7874 

- 0.3625 

- 0.0000 

- 0.0104 

0.00121 

- 0.02087 

0.00625 
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- 3.7249 

- 0.3625 

- 0.0000 

0.0065 
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- 0.0000 
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10 

- 2.6371 

- 1.6125 

- 0.0000 

- 0.0295 

0.00402 

- 0.02687 

0.01023 

11 

- 3.6246 

- 1.8125 

- 0.0000 

- 0.0104 

0.00480 

- 0.02432 

0.00917 

12 

- 4.5621 

- 1.8125 

- 0.0000 

0^0065 

0.00497 

- 0.02219 

0.00823 

13 

- 2.1681 

- 2.5375 

- 0.0000 

- 0.0568 

0.00574 

- 0.03245 

0.01430 

14 

- 3.1056 

- 2.5375 

- 0.0000 

- 0.0295 

0.00680 

- 0.02863 

0.01253 

15 

- 4.0431 

- 2.5375 

- 0.0000 

- 0.0104 

0.00680 

- 0.02553 

0.01101 

16 

- 4.9806 

- 2.5375 

- 0.0000 

0.0065 

0.00636 

- 0.02321 

0.00977 

17 

- 2.5867 

- 3.2625 

- 0.0000 

- 0.0568 

0.00998 

- 0.03424 

0.01777 

18 

- 3.5242 

- 3.2625 

- 0.0000 

- 0.0295 

0.00963 

- 0.02953 

0.01513 

19 
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- 0.0000 

- 0.0104 

0.00857 

- 0.02626 

0.01314 
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- 5.3992 

- 3.2625 
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0.0065 
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- 0.0000 

- 0.0568 

0.01416 

- 0.03421 

0,02147 
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- 3.9428 

- 3.9875 

- 0.0000 

- 0.0295 

0. 01191 

- 0.02943 

0.0 1804 

23 

- 4.8803 

- 3.9875 

- 0.0000 

- 0.01 04 

0,00972 

- 0.02661 

0,01569 

24 

- 5.3176 

- 3.9875 

- 0.0000 

0.0065 

0.00803 

- 0.02502 

0.01402 

26 

- 3.4239 

- 4.7125 

- 0.0000 

- 0.0568 

0.01709 

- 0.03221 

0.02521 

26 

- 4.3614 

- 4.7125 

- 0.0000 

- 0.0295 

0.01299 

- 0.02853 

0.02136 

27 

- 5.2989 

- 4.7125 

- 0.0000 

- 0.0104 

0.00993 

- 0.02684 

0.01896 

28 

- 6.2364 

- 4.7125 

- 0.0000 

0 . 0065 

0. 00790 

- 0,02624 

0.01736 

29 

- 3.3425 

- 5.4375 

- o.oooo 

- 0.0568 

0.01769 

- 0.02886 

0.02905 

30 

- 4 . 7 E 00 

- 5.4375 

- 0.0000 

- 0.0295 

0.01243 

- 0.02729 

0.02559 

31 

- 5.7175 

- 5.4375 

- 0.0000 

- 0.0104 

0.00899 

- 0 . 02721 ' 1 

, 0.02369 

32 

- 6.6550 

- 5.4375 

- 0.0000 

0.0065 

0.00694 

- 0.02788 

. 0.02260 

33 

- 4.2610 

- 6.1625 

- 0.0000 

- 0 . 0568 

0.01568 

- 0.02522 w 

0.03404 

34 

- 5.1986 

- 6.1625 

- 0.0000 

- 0,0295 

0.01020 

- 0.02582 

0.03204 

3 b 

- 6.1360 

- 6.1625 

- 0,0000 

- 0.0104 

0.00692 

- 0.02719 

0.03 146 

36 

- 7.0735 

- 6.1625 

- 0.0000 

0.0065 

0.00517 

- 0.02895 

- 0.03155 

37 

- 4.6796 

- 6.8875 

- 0,0000 

- 0.0568 

0 . 0 U 95 

- 0.01994 

0.04232 

38 

- 5.6171 

- 6.8375 

- 0.0000 

- 0,0295 

0.00722 

- 0.02139 

. 0 . 042 J 4 

39 

- 6. 5546 

- 6.8875 

- 0.0000 

- 0.0104 

0 i 00428 

- 0.02308 ' 

0.04347 

40 

- 7.4921 

- 6.8875 

- 0.0000 

0.0065 

0.00305 

- 0.02501 

0.04513 

4 l 

- 5.0982 

- 7.6125 

- 0.0000 

- 0.0568 

0.00859 

- 0.00759 

0.05124 

42 

- 6.0357 

- 7.6125 

- 0.0000 

- 0.0295 

0.00459 

- 0 . 00849 ;:, 

0.05234 

43 

- 6.9732 

- 7.6125 

- 0.0000 

- 0.0104 

0.00246 

- 0.00938 

0.05436 

44 

- 7.9107 

- 7.6125 

- 0.0000 

. 0,0065 

0.00148 

- 0.01052 

0.05668 

4 5 

- 5.5168 

- 8.3375 

- 0.0000 

- 0.0368 

0.00620 

0.00972 

0.05135 

46 

- 6 .^» 543 

- 8.3375 

- 0.0000 

- 0,0295 

0.00326 . 

0.00941 

0.05238 

4 7 

- 7.3918 

- 8.3375 

- 0.0000 

- 0. 0104 

0.00155 

0.00925 

0.05420 

48 

- 8.3293 

- 8.3375 

- 0.0000 

0.0065 

0.00093 

0.00885 

0.05659 

49 

- 5.9354 

- 9.0625 

- 0.0000 

- 0.0568 

0.00459 

0.02205 

0.04268 

50 

- 6.8729 

- 9.0625 

- 0.0000 

- 0.0295 

0.00243 

0.02189 

0.04334 

5 1 

- 7.8104 

- 9.0625 

- 0.0000 

- 0.0104 

0.00116 

0.02195 

0 .04464 

52 

- 8.7479 

- 9.0625 

40.0000 

0.0065 

0.00080 

0.02181 

0.04652 

53 

- 6.3539 

- 9.7875 

- 0.0000 

- 0.0668 

0.00336 

0 . 026.99 

0^03236 

54 

- 7 . 29 K 

- 9.7875 

- 0.0000 

- 0.0295 

0.00187 

0.02679 

0.03276 

55 

- 8.2289 

- 9.7875 

- 0.0000 

- 0.0104 

0.00092 

0.02679 

0.03367 

56 

- 9.1664 

- 9.7875 

- 0.0000 

0.0065 

0.00065 

0.02665 

0.03508 

57 

- 6.7725 

- 10.5125 

- 0.0000 

- 0.0569 

0.00239 

0. 02746 

0.02399 
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58 

- 7.7100 

- 10.5125 

- 0.0000 

- 0.0295 

0.00134 

0.02719 

0.02428 

59 

- 6.6475 

- 10.5125 

- 0.0000 

- 0.0104 

0.00068 

0.02712 

0.02496 

60 

- 9.5650 

- 10.5125 

- 0.0000 

0.0065 

0.00046 

0.02698 

0.02599 

61 

- 7.1911 

- 11.2375 

- C.OOOO 

- 0.0568 

0.00162 

0.02602 

0.01796 

62 

- 8.1286 

- 11.2375 

- 0.0000 

- 0.0295 

0.00092 

0.02574 

0.01819 

63 

- 9.0661 

- 11.2375 

- 0.0000 

- 0.0104 

0.00047 

0.02563 

0.01871 

64 

- 10.0036 

- 11.2375 

- 0.0000 

0.0065 

0.00031 

0.02553 

0.01945 

65 

- 7.6097 

- 11.9625 

- 0.0000 

- 0.0563 

0.00103 

0.02398 

0,01371 

66 

- 8.5472 

- 11.9625 

- 0.0000 

- 0.0295 

0.00058 

0.02373 

0.01392 

67 

- 9.4347 

- 11.9625 

- 0.0000 

- 0.0104 

0.00031 

0.02361 

0 . 0143 P 

68 

- 10.4222 

- 11.9625 

- 0.0000 

0.0065 

0.00022 

0.02353 

0.01481 

69 

- 8.0282 

- 12.6875 

- 0.0000 

- 0.0568 

0.00060 

0.02187 

0.01 070 

70 

- 8.9657 

- 12.6875 

- 0.0000 

- 0.0295 

0.00034 

0.02165 

0.01086 

71 

- 9.9032 

- 12.6875 

- 0.0000 

- 0.0104 

0.00019 

0.02154 

0.01113 

72 

- 10.8407 

- 12.6875 

- 0.0000 

0.0065 

0+00016 

0.02147 

0.01147 

73 

- 8.4468 

- 13.4125 

- 0.0000 

- 0.0568 

0.00030 

0.01989 

0.00850 

74 

- 9.3843 

- 13.4125 

40.0000 

- 0.0295 

0.00016 

0.01971 

0.00863 

75 

- 10.3218 

- 13.4125 

- 0.0000 

- 0.0104 

0.00011 

0.01961 

0.00882 

76 

- 11.2593 

- 13.4125 

- 0.0000 

0.0065 

0.00013 

0.01954 

0,00904 

77 

- 8.8654 

- 14.1375 

- 0.0000 

- 0.0568 

0.00008 

0.01811 

0.00687 

78 

- 9.8029 

- 14.1375 

- 0.0000 

- 0.0295 

0.00004 

0.01796 

0.00696 

79 

- 10.7404 

- 14.1375 

- 0.0000 

- 0.0104 

0.00005 

0.01786 

0.00708 

so 

- 11.6779 

- 14.1375 

- 0.0000 

0.0065 

0.00012 

0.01778 

0.00722 

FLAP 

CONTROL 

POINTS 






81 

- 5.0008 

- 0.3625 

0.2017 

- 0.1736 

0.00281 

- 0.01811 

0.00480 

62 

- 6.0560 

- 0.3625 

0.5617 

- 0.0226 

0.00315 

- 0.01723 

0.00365 

83 

- 7.1113 

- 0.3625 

0.9217 

- 0.0226 

0.00330 

- 0.01636 

0.00259 

84 

- 8.1666 

- 0 . 3625 , 

1.2817 

0.1285 

0.00336 

- 0.01549 

0.00163 

85 

- 9.2219 

- 0 . 3625 

1.6417 

0.1285 

0.00333 

- 0.01460 

0.00078 

86 

- 3.4193 

- 1.0675 

0.2017 

- 0.1736 

0.00388 

- 0.01926 

0 . 0056 ^ 

07 

- 6." 746 

- 1.06 75 

0.5617 

- 0.0226 

0.00403 

- 0.01832 

0.00425 

80 

- 7.5295 

- 1.0875 

0.9217 

- 0.0226 

0.00407 

- 0.01742 

0,00299 

09 

- 0.5852 

- 1.0875 

1.2817 

0.1285 

0.00405 

- 0.01649 

0.00184 

90 

-9.6405 

- 1.0875 

l . b 417 

0.1285 

0.00397 

- 0.01548 

0.00084 

91 

- 5.8379 

- 1.8125 

0.2017 

- 0.1736 

0.00492 

- 0 . 02038 

0.0066 3 

92 

- 6.8932 

- 1.8125 

0.5617 

- 0.0226 

0.06488 

- 0.01951 

0.00498 

93 

- 7.9485 

- 1.8125 

0.9217 

- 0.0226 

0.00484 

- 0.01865 

0.00346 

Q., 

- 9.0038 

- 1.8125 

1.2817 

0.1285 

0.00481 

- 0.01765 

0.00206 

95 ' 

-,10.0590 

- 1.8125 

1.6417 

0. 1285 

0.0046 9 

- 0.01645 

0.00085 

96 

>^6.2565 

- 2.5375 

0.2017 

- 0.1736 

0 . 005 B 4 

- 0.02155 

0.00785 

97 

- 7.3118 

- 2.5375 

0 . 561 '^ 

- 0.0226 

0 . 005 b 7 

- 0.02093 

0.00588 

98 

- 8.3671 

- 2.5375 

0.9217 

- 0.0226 

0.00565 

- 0 . 02018 

0.00401 

99 

- 9.-223 

- 2,5375 

1.2817 

0.1285 

6.00570 

- 0.01904 

0.00226 

100 

-10.6776 

- 2.5375 

1.6417 

0.1285 

0.00555 

- 0.01749 

0.00077 

101 

— 6.0731 

- 3.2625 

0.2017 

- 0.1736 

0.00653 

- 0.02293 

0.00942 

102 

- 7.7304 

- 3.2625 

0.5617 

- 0.0226 

0.00636 

- 0.02279 

0.00706 

103 

- 8.7856 

- 3.2625 

0.9217 

- 0.0226 

0.00657 

- 0.02222 

0.00466 

10', 

- 0,9409 

- 3.2625 

1.2817 

0.1285 

0.00686 

- 0.02076 

0.00235 

105 

- 10.3462 

- 3.2625 

1.6417 

0.1285 

0.00661 

- 0.01850 

0.00045 

106 

■ 7 . one 

- 3.9875 

0.2017 

- 0.1736 

0.00689 

- 0.02480 

0.01156 

107 

- 6 . 1+69 

- 3.9875 

0.5617 

- 0.0226 

0. 00698 

- 0.02551 

0.00872 

105 

- 9.2042 

- 3.9675 

0.9217 

- 0,0226 

0.00700 

- 0.02523 

0.00547 

109 

- 10.2595 

- 3.9875 

1.2617 

0 . 1285 

0.00859 

- 0.02286 

0.00209 

110 

- 11.3148 

- 3.9875 

1.6417 

0.1285 

0.00783 

- 0.01923 

- 0.00043 

111 

-7.5122. 

- 4.7125 

0.2017 

- 0.1736 

0.00685 

- 0.02756 

0.01490 

112 

- 8.3675 

- 4.7125 

0.5617 

- 0.0226 

0.00756 

- 0.02983 

0.01143 

113 

- 0.6228 

- 4.7125 

0.9217 

- 0.0226 

0.00991 

- 0.03006 

0.00659 

114 

- 10.0781 

- 4.7125 

1.2817 

0 . 1285 

0.01128 

- 0. 02511 

0.00069 

115 

- 11 . 7334 ' 

^ - 4.7125 

1.6417 

0.1285 

0.00866 

- 0.01945 

- 0.00274 

11 b 

- 7.9308 

- 5.4375 

0.2017 

- 0.1736 

0. 00626 

- 0.03152 

0.02076 

117 

- 8.9861 

- 5.4375 

0.5617 

- 0.0226 

0.00819 

- 0.03699 

0.01699 
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118 

- 10.0414 

- 5.4375 

0.9217 

- 0.0226 

0.01445 

- 0.03852 

0.00868 

119 

- 11.0967 

- 5.4375 

1.2817 

0.1263 

0.01276 

- 0.02736 

- 0.00403 

120 

- 12.1519 

- 5.4375 

1.6417 

0.1285 

0.00803 

- 0.02036 

- 0.00872 

121 

- 8.3494 

- 6.1625 

0.2017 

- 0. 1736 

0.00504 

- 0.03552 

0.03206 

122 

- 9.4047 

- 6.1625 

0.5617 

- 0.0226 

0.00806 

- 0.04730 

0.03082 

123 

- 10.4600 

- 6.1625 

019217 

- 0.0226 

0.02889 

- 0.04845 

0.00865 

124 

- 11.5152 

- 6.1625 

1.2817 

0.1285 

- 1.50771 

- 0 . 00280 

0.07772 

125 

- 12.5705 

- 6.1625 

1.6417 

0.1285 

- 1.50105 

- 0.00451 

0.08834 

126 

- 6.7680 

- 6.8875 

0.2017 

- 0.1736 

0.00282 

- 0.03301 

0.05091 

127 

- 9.8232 

- 6.8875 

0.5617 

- 0.0226 

0.00713 

- 0.05166 

0.06325 

128 

- 10.8785 

- 6.8875 

0.9217 

- 0 . 0226 

- 1.58238 

- 0.02323 

0.07702 

129 

- 11.9338 

- 6.8875 

1.2817 

0.1285 

- 1.53258 

- 0.02271 

0.08143 

130 

- 12.9891 

- 6.8875 

1.6417 

0.1285 

- 1.47985 

- 0.02160 

0.08638 

131 

- 9.1865 

- 7.6125 

0.2017 

- 0.1736 

0.00196 

- 0.01503 

0.06770 

132 

- 10.2418 

- 7.6125 

0.5617 

- 0.0226 

- 0.50867 

- 0.03051 

0.09550 

133 

- 11.2971 

- 7.6125 

0.9217 

- 0 . 0226 

- 1.56507 

- 0.04142 

0.07416 

134 

- 12.3524 

- 7.6125 

1.2817 

0.1285 

- 1.51100 

- 0.04038 

0.07962 

135 

- 13.4077 

- 7.6125 

1.6417 

0.1265 

- 1.45871 

- 0.03809 

0.08454 

136 

- 9.6051 

- 8.3375 

0.2017 

- 0.1736 

0.00215 

0.00950 

0.06667 

137 

- 10.6604 

- 8.3375 

0.5617 

- 0.0226 

0.01152 

0.00575 

0.07908 

138 

- 11.7157 

- 8.3375 

0.9217 

- 0.0226 

- 1.54339 

- 0 . 06042 

0.07241 

139 

- 12.7710 

- 8.3375 

1.2817 

0.1285 

- 1.48896 

- 0.05752 

0.07802 

140 

- 13.0263 

- 8.3375 

1.6417 

0.1285 

- 1.43717 

- 0.05378 

0.08267 

141 

- 10.0237 

- 9.0625 

0.2017 

- 0.1736 

0.00208 

0.02404 

0.05257 

142 

- 11.0790 

- 9.0625 

0.5617 

- 0.0226 

0.00320 

0.02735 

0.06068 

143 

- 12.1343 

- 9.0625 

0.9217 

- 0.0226 

0.00349 

0.03323 

0.07110 

144 

- 13.1896 

- 9.0625 

1.2817 

0.1285 - 

- 1.46025 

- 0.07486 

0.07482 

145 

- 14.2448 

- 9.0625 

1.6417 

0.1285 

- 1.41626 

- 0.06878 

0.08096 

146 

- 10.4423 

- 9.7875 

0.2017 

- 0.1736 

0.00114 

0,02873 

0.03824 

147 

- 11.4976 

- 9.7375 

0.5617 

- 0.0226 

0.00134 

0.03365 

0.04188 

148 

- 12.5528 

- 9.7875 

0.9217 

- 0.0226 

0.00086 

0.04044 

0.04548 

149 

- 13.5081 

- 9,7075 

1.2817 

0.1285 

0.00004 

0.05018 

0.04830 

150 

- 14.6634 

- 9.7875 

1,6417 

0.1285 

0.00040 

0.06263 

0.04854 

151 

- 10.8609 

- 10.5125 

0.2017 

- 0.1736 

0.00053 

0.02874 

0.02756 

152 

- 11.9161 

- 10.5125 

0.5617 

- 0,0226 

0.00049 

0.03288 

0.02864 

153 

- 12.9714 

- 10.5125 

0.9217 

- 0.0226 

0.00031 

0.03794 

0.02915 

154 

- 14.0267 

- 10.5125 

• 1,2817 

0.1285 

0.00004 

0.04417 

0.02664 

155 

- 15.0820 

- 10.5125 

1.6417 

0.1285 

- 0.00026 

0,05159 

0.02652 

156 

- 11.2794 

- 11.2375 

0.2017 

- 0.1736 

0.00029 

0.02691 

0.02013 

157 

- 12.3347 

- 11.2375 

0.5617 

- 0.0226 

0.00023 

0. 02997 

0.02003 

158 

- 13.3900 

- 11.2375 

0.9217 

- 0.0226 

0.00020 

0.03345 

0.01940 

159 

- 14.4453 

- 11.2375 

1.2817 

0.1285 

0.00027 

0.03738 

0.01799 

160 

- 15.5006 

- 11.2375 

1.6417 

0.1285 

0.00060 

0.04165 

0.01547 

161 

- 11.6980 

- 11.9625 

0.2017 

- 0 . 1736 

0.00021 

0.02457 

0.01500 

162 

- 12.7533 

- 11.9625 

0.5617 

- 0.0226 

0.00021 

0.02675 

0.01441 

16 3 

- 13.8036 

- 11.9625 

0.9217 

- 0.0226 

0.00031 

0.02911 

0.01341 

164 

- 14.8639 

- 11.9625 

1.2817 

0.1265 

0.00058 

0.03160 

0.01184 

165 

- 15.9191 

- 11.9625 

1.6417 

0.1285 

0.00117 

0.03404 

0.00949 

166 

- 12.1166 

- 12.6875 

6.2017 

- C .1736 

0.00021 

0.02223 

0.01 141 

167 

- 13.1719 

- 12.6875 

0.5617 

- 0.0226 

0.00028 

0.02377 

0.01064 

168 

- 14.2272 

- 12.6875 

0.9217 

- 0.0226 

0.00046 

0.02536 

0.00957 

169 

- 15.2824 

- 12.6875 

1.2817 

0.1285 

0.00083 

0.02691 

0.00807 

170 

- 16.3377 

- 12.6875 

1.6417 

0.1285 

0.00148 

0.02822 

0.00602 

171 

- 12.1352 

- 13.4125 

0.2017 

- 0.1736 

0.00023 

0.02008 

0.00883 

172 

- 13.5905 

- 13.4125 

0.5617 

- 0.0226 

0.00035 

0.02115 

0.00804 

173 

- 14.6457 

- 13.4125 

0.9217 

- 0.0226 

0.00060 

0.02221 

0.00700 

174 

- 15.7010 

- 13.4125 

1.2817 

0.1285 

0.00099 

0.02313 

0.00565 

175 

- 16.7563 

- 13.4125 

1.6417 

0.1285 

0.00155 

0.02375 

0.00394 

176 

- 12.9537 

- 14.1375 

0.2017 

- 0.1736 

0.00025 

0.01815 

0.00695 

177 

- 14.0090 

- 14.1375 

0.5617 

- 0.0226 

0.00041 

0.01889 

0.00618 

178 

-15 .0643 

- 14.1375 

0.9217 

- 0 . 0226 

0.00067 

0.01957 

0.00523 

179 

- 16.1196 

- 14.1375 

1.2817 

0.1285 

0.00102 

0.02008 

0.00405 

180 

- 17.1749 

- 14.1375 

1.6417 

0.1285 

0.00145 

0.02031 

0.00265 
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HOPSESHOE VORTEX CHARACTERISTICS 

BOUNOLEG MIDPCINT VORTEX STBENGTHSf GAMMA/V 

COORDINATES 

J X Y Z SWEEP, DEG. SEMIWIDTH ' ALPHAO= 0.0000, OLL0= 21 

WING VORTICES 


1 

i-0.4437 

-0.3625 

-0.0000 

3o;oooo 

0.3625 

,0. 3972 

2 

-1.3912 

-0.3625 

-0.0000 

30.0000 . 

0.3625 

. 0.3797 

3 

:-2.3187 

-0.3625 

-o.oodo 

3C.000C ■ 

0.3625 

0.4027 

A 

-3.2562 

-0.3625, 

-0.0000 , 

30.0000 

0.3625 

0.4191 

5 

40.8622 

- 1.0875 

- 0.0000 

30.0000 

0.3625 

0.4717 

6 

>.1.7997 

-1.0875 

-0.0000 

30.0000 

0.3625 

. 0.4068 

7 

-2.7372 

-1.0875 

-0.0000 

30.0000 

0.3625 

0.4226 

8 

-3.6747 

-1.0875 

-0.0000 

30.0000 

0.3625 

0.4417 

9 

-1.2808 

-1.8125 

-0.6000 

30.0000 

- 0.3625 

0.5320 

10 

-2.2183 

- 1.8125 

-0.0000 

30.0000 

0.3625 

0.4351 

11 

-3.1558 

-1.8125 

-0.0000 

30.0000 

0.3625 

0.4444 

12 

-4.0933 

-1.8125 

-0.0000 

30.0000 

0.3625 

0.4612 

13 

-1.6994 

-2.5375 

-0.0000 

30.0000: 

0.3625 

• 0.5818 

li 

--2.6369 

-2.5375 

rO.OOOO 

30.0000 

0.3625 

■ . 0.4604 

15 

-3.5744 

-2.5375 

-Q.OQOO 

30. 0000 

0.3625 

0.4635 

15 

-■ 4.311'> 

-2.5375 

-0.0000 

'30.0000 

0.3625 

0.476C 

17 

-2.1180 

-3.2625 

-0.0000 

30.0000 

0.3625 

0.6230 

18 

-3.0555 

-3.2625 

.-0.0000 

30.0000 

0.3625 . 

0.4819 

19 

-3. <=930 

-3.2625 

-0.0000 

30.0000 

0.3625 

0.4791 

20 

-4.9305 

-3.2625 

-0.0000 

30.0000 

0.3625 

' 0.4873 

21 

,-2.5366 

-3.9875 

-0.0000 

30.0000 

0.3625 

0.6565 

22 

-3.4741 

-3.9875 

-0.0000 

30.0000. 

0.3625 

. 0.4993 

23 

'-4.4116 

-3.9875 

-0.0000 

30.0000 

0.3625 

0.4915 

2 9 

-5.3491 

-3.98 75 

-0.0000 

30.0000 

0.3625 

0.4964 

25 

-2. 9551 

-4.7125 

-0.0000' 

3C.000C 

0.3625" 

0.6831 

2u 

-3.8926 

-9.7125 

-0.6000 

30.0000 

0.3625 

0.5126 

27 

-4.3 301 

-4.7125 

-0.0000 

30.0000 

0.3625 

•'0.5010 

25 

-5.7676 

-‘>.7125 

-0.0000 

30.0000 

0.3625 . 

; 0. 5040 

29 

-3.3737 

-5.4375 

-0.0000 

30.0000 

0.3625 

0.7028 

30 

-4.3112 

-5.4375 

-0.0000 

30.0000 

0.3625 

.0. 5216 

31 

-5.2487 

-5.4375 

-0.0000 

30.0000 , 

0.3625 

0.5076 

32 

-6.1862 

-5.4375 

-0.0000 

30.0000 

0.3625 

0. 5103 

33 

-3. 7923 

-6.1625 

-0.0000 

. 30.0000 

0.3625 

0.7147 

34 

. -4.7295 

-6.1525 

-0.0000 

30.0000 

0.3625 

0.5263 

35 

-5.6673 

-6.1625 

-0.0000 

30.0000 

0.3625 

, ,,0. 5118 

36 

-6.6046 

-6.1625 

-0. 0000 

3 0.0000, 

0.3625 

, 0.5158 

37 

-4.2109 

-5.8875 

-0.0000 

30.0000 

0.3625 , 

0.7179 

38 

-5.1484 

— 6.08 75 

-0.0000 

.30.0000 

0.3625 

0.5282 

39 

-6 .0359 

-6. 8875 

-0.0000 

30. 0000 

0.3625 

0.5146 

40 

,-7.0234 

-6.6875 

-0.0000 

30.0000 

0.3625 

0.5209 

4l 

-4;6295 

-7.6125 

-0.0000 

30.0000 

0.3625 

0.'7172 

42 

-5.3670 

-7.6125 

-0.0000 

30.0000 

0.3625 

it 0.5303 

4 3 

-6.5045 

-7.6125 ' 

-0.0000 

30.0000 

0.3625. 

0.5174 


-7 .4420 

-7.6125 

-0.0000 

30.0000 

0.3625 

0.5256 

45 

-5.0430 

-8.3375 

-0.0000 

30.0000 

0.3625 

0.7234 

s-6 

- 5 . 8 5 5 

-8.3375 

-0.0000 

30. 0000 

• 0.3625 

0.5334 

47 

-6.9230 

-8.3375 

-0.0000 

30.0000 

0.3625 

0. 5194 

98 

-7. 8605 

.-8.3375 

-0.0000 

30.0000 

0.3625 

. 0.5277 

49 

-5 .4666 

49.0625 

-0.0000 

30.0000 

0.3625 

0.7372 

50 

-6.4OVI 

-9.0625 

-0.0000 

30. 0000 

0.3625 

0.5355 

51 

-7.3416 

-9.0625 

-0.0000 

30.0000 

0.3625 

0. 5176 

52 

-8.2791 

-9.0625 

-0.0000 

30.0000 

0.3625 

0.5230 

53 

-5.6852 

-9.7875 

-0.0000 

30.0000 

0.3625 

0.7496 

54 

-6.8227 

-9.7675 

-0.0000 

30.0000 

0.3625 

0. 5330 

55 

-7.7602 

-9.7875 

-0.0000 

30.0000 

0.3625 

0.5091 

56 

-3.6977 

-9.7875 

40.0000 

30.0000 

0.3625 • ■ 

0.5095 

57 

-6.3038 

-10.5125 

-0.0000 

30.0000 

0.3625 

0.7528 

58 

-7.2413 

-10.5125 

-0.0000 

30.0000 

0.3625 - 

0.5231 

59 

-8.1788 

-10.5125 

-0.0000 

30.0000 

0.3625 

0.4921 

60 

-9.1163 

-10.5125 

-0.0000 

30.0000 

' 0 . 36 2 5 . 

0.4867 
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61 

- 6.7223 

- 11.2375 

- 0.0000 

62 

- 7.6598 

- 11.2375 

- 0.0000 

63 

- 8.5973 

- 11.2375 

- 0.0000 

64 

- 9.5348 

- 11.2375 

- 0.0000 

65 

- 7.1409 

- 11.9625 

- 0.0000 

66 

- 8.0784 

- 11.9625 

- 0.0000 

67 

- 9.0159 

- 11.9625 

- 0.0000 

68 

- 9.9534 

- 11.9625 

- 0.0000 

69 

- 7.5595 

- 12.6875 

- 0.0000 

'70 

-8 .4970 

- 12.6975 

- 0.0000 

71 

- 9.4345 

- 12.6875 

- 0.0000 

72 

- 10.3720 

- 12.6875 

- 0.0000 

73 

- 7.9731 

- 13.4125 

- 0.0000 

74 

- 8.9156 

- 13.4125 

- 0.0000 

75 

- 9.8531 

- 13.4125 

- 0.0000 

76 

- 10.7906 

“ 13.4125 

- 0.0000 

77 ' 

-8 .3967 

- 14.1375 

- 0.0000 

78 

- 9.3342 

- 14.1375 

- 0.0000 

79 

- 10.2717 

- 14.1375 

- 0.0000 

60 

- 11.2092 

- 14.1375 

- 0.0000 

FLAP 

' VORTICES 



81 

- 4.4731 

- 0.3625 

0.0217 

62 

- 5.5294 

- 0.3625 

0.3817 

83 

- 6.5337 

- 0.3625 

0.7417 

34 

- 7.6390 

- 0.3625 

1.1017 

85 

- 6.6943 

- 0.3625 

1.4617 

86 

- 4.8917 

- 1.0875 

Q .0217 

87 

- 5.9470 

- 1.0875 

0.3817 

98 

- 7.0023 

- 1.0875 

0.7417 

89 

- 8 .0575 

- 1.0875 

1 . 1017 

90 

- 9.1128 

- 1.0875 

1.4617 

91 

- 5.3103 

- 1.8125 

0.0217 

92 

- 6.3656 

- 1.8125 

0.3817 

93 - 

- 7.4208 

- 1.8125 

0.7417 

94 

—8 .476 1 

- 1.8125 

1.1017 

95 

- 9.5314 

- 1.8125 

1.4617 

96 

- 5.7288 

- 2.5375 

0.0217 

97 

- 6.7841 

- 2.5375 

0.3817 

93 

- 7.8394 

- 2.5375 

0.7417 

99 

- 8.8947 

- 2.5375 

1.1017 

100 

- 9.9500 

- 2.5375 

1.4617 

101 

- 6.1474 

- 3.2625 

0.0217 

102 

- 7.2027 

- 3.2625 

0.3817 

103 

- 6.2580 

- 3.2625 

0.7417 

104 

- 9.3133 

- 3.2625 

1.1017 

105 

- 10.3636 

- 3.2625 

1.4617 

106 

— o . 5660 

- 3.9875 

0.0217 

107 

- 7.6213 

- 3.9875 

0.3817 

108 

- 8.6766 

- 3.9875 

0.7417 

109 

- 9.7319 

- 3.9875 

1.1017 

110 

- 10.7871 

- 3.9875 

1.4617 

111 

- 6.9846 

- 4.7125 

0.0217 

112 

- 8.0399 

- 4.7125 

0.3817 

113 

- 9.0951 

- 4.7125 

0.7417 

114 

- 10. 1504 

- 4.7125 

1.1017 

115 

- 11.2057 

- 4.7125 

1.4617 

116 

- 7.4032 

- 5 . 437,5 

0.0217 

117 

- 8.4584 

- 5.4375 

0.3817 

lie 

- 9.5137 

- 5.4375 

0.7417 

119 

- 10.5690 

- 5.4375 

1. 1017 

120 

- 11.6243 

- 5.4375 

1.4617 


30.0000 

0.3625 

0.7422 

30.0000 

0.3625 

0.5034 

30.0000 

0. 3625 

0.4654 

30.0000 

0.3625 

0.4551 

30. 0000 

♦ 0 . 3625 

0.7144 

30.0000 

0.3625 

0.4715 

30.0000 

0.3625 

0.4274 

30.0000 

0.3625 

0.4140 

30.0000 

0.3625 

0.6646 

30.0000 

0.3625 

0.4230 

30.0000 

0.3625 

0.3749 

30.0000 

0.3625 

0.3616 

30.0000 

0.3625 

0 . 5827 

30.0000 

0.3625 

0.3487 

30.0000 

0.3625 

0. 3023 

30.0000 

0.3625 

0.2934 

30.0000 

0.3625 

0 . 434 t > 

30.0000 

0.3625 

0 . 2290 ' 

30.0000 

0 . 36 2 5 

0.1992 

30.0000 

0.3625 

0. 1977 


28.2437 

0.3687 

0.9979 

29.2437 

0.3687 

0.9073 

28.2437 

0.3687 

0 . 698 S ' 

23.2437 

0.3687 

0.7477 

28.2437 

0.3687 

0.4152 

28.2437 

0.3687 

1 . 0549 , 

28.2437 

0.3637 

0 . 9446 ' 

28.2437 * 

0.3687 

0.7087 

28.2437 

0.3687 

0.7315 

28.2437 

0.3687 

0 . 384 V 

28.2437 

0.3687 

1 . 0843 '. 

23.2437 

0.3687 

0.966 3 : 

23.2437 

0.3687 

0.718 i 

28.2437 

0.3687 

■ 0.7296 

23.2437 

0.3637 

0 . 3777 , 

28.2437 

0. 3687 

1.1027 

28.2437 

0.3687 

0 . 9803 , 

28.2437 

0.3687 

0 . 7279 ' 

28.2437 

• 0.3687 

0.7370 

28.2437 

• 0.3687 

0 . 3832 

28.2437 

0.3687 

1.1166 

23.2437 

0.3687 

, 0.9933 

28.2437 

0.3687 

0.7424 

28.2437 

0.3687 

0.7542 

28.2437 

0.3687 

0.3983 

28.2437 

0.3607 

, 1. 1295 

28.2437 

0.3687 

1.0097 

28.2437 

0.3687 

0 . 76,66 

28.2437 

0.3687 

0.7869 

28.2437 

0.3687 

0.4265 

28.2437 

0.3687 

1. 1436 

28.2437 

0.3687 

1.0334 

28.2437 

0.3687 

0. 8093 

28.2437 

0.3687 

0.8519 

28.2437 

0. 3687 

0.4747 

23.2437 

0.3687 

" 1.1604 

28.2437 

0.3687 

1 . 0692 ' 

28.2437 

0.3687 ' 

0.6898 

28.2437 

0.3687 

1.0064 

28.2437 

0.3687 

0. 5436 


Figure 23(b).- Continued. 
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121 

-7.8217 

-6.1625 

0.0217 

28.2437 

0.3687 

1. 1803 

122 

-8.3770 

-6.1625 

0.3817 

28.2437 

0.3667 

1.1222 

123 

-9.9323 

-6.1625 

0.7417 

28.2437 

0.3687 

1.0592 

124 

-10.9876 

-6.1625 

1.1017 

28.2437 

0.3687 

1.6162 

125 

-12.0429 

-6.1625 

1.4617 

28.2437 

0.3687 

0. 5664 

126 

-8.2403 

-6.8875 

0.0217 

28.2437 

0.3687 

1.2036 

127 

-9.2956 

-6.8875 

0.3817 

28.2437 

0.3687 

1.1985 

128 

-10.3509 

-6.8875 

0.7417 

28.2437 

0.3687 

1.5425 

129 

- 11.4062 

-6.8875 

1.1017 

28.2437 

0.3687 

1.3521 

130 

-12.4615 

-6.8875 

1.4617 

28.2437 

0.3687 

0.5397 

131 

' -8.6589 

-7.6125 

0.0217 

28.2437 

• 0.3687 

1.2299 

l32 

-9 .7 142 

-7.6125 

0.3817 

28.2437 

0.3687 

1.3553 

133 

-10.7695 

-7,6125 

0.7417 

28.2437 

0.3687 

1.4355 

134 

-11.8248 

-^7.6125 

1.1017 

28.2437 

0.3687 

1.3001 

135 

-12.8800 

-7.6125 

1.4617 

20.2437 

0.3687 

0.5214 

136 

-9.0775 

-8.3375 

0.0217 

. 28.2437 

0.3687 

1.2387 

137 

-10.1328 

-8.3375 

0.3817 

28.2437 

0. 3687 

1.2353 

138 

-11.1880 

-8.3375 

0.7417 

28.2437 

0.3687 

1.4990 

139 

-12.2433 

-6.3375 

1.1017 

28.2437 

0.3bU7 

1.2767 

140 

-13.2936 

-8.3375 

1.4617 

28.2437 . 

0.3687 

0.5047 

I'^l 

-9.4961 

-9.0625 

0.0217 

28.2437 

0.3687 

1.2186 

142 

-10.5513 

-9.0625 

0.3617 

23.2437 

0.3687 

1. 1664 

143 

-11.6C66 

-9.0625 

0.7417 

20.2437 

0.3687 ' 

1.0220 

1«t4 

-12.6619 

-9.0625 

1.1017 

28.2437 

0.3687 

1.5150 

145 

-13.7172 

-9.0625 

1.4617 

28.2437 

0,3687 

0.4587 

146 

-9,9146 

-9,7875 

0.0217 

28.2437 

C. 3687 

1.1748 

147 

-10.9699 

-9.7675 

0.3817 

28,2437 

0.3687 

1.0844 

148 

-12.0252 

-9,7876 

0.7417 

28.2437 

0.3687 

0.8740 

149 

-13.0805 

-9.7675 

1.1017 

28.2437 

0.3687 

0.8951 

150 

-If. 1358 

-9,7875 

1.4617 

28.2437 

0.3687 

0.4028 

151 

-10.3332 

-10.5125 

0.0217 

28.2437 

0.3637 

1.1131 

132 

-11.3885 

-10.5125 

0.3817 

28.2437 

0.3687 

1.0065 

153 

-12.443S 

-10.5125 

0.7417 

28.2437 

0.36 87 

0.7567 

154 

-13.4991 

-10.5125 

1.1017 

28.2437 

0.3637 

0.7470 

155 

-14.5544 

- 10.5125 

1.4617 

28.2437 

0.3687 

0.3531 

156 

-.10.7518 

-11.2375 

0.0217 

28.2437 

0.3687 

1.0387 

157j, 

- 11.8071 

-11.2375 

0.3817 

28.2437 

0.3687 

0.9309 

153\ 

•12.3624 

-11.2375 

0.7417 

28.2437 

0.3687 

0. 6711 

159 

-13.9176 

-11.2375 

1.1017 

26.2437 

0.3687 

0.6716 

160 

-14.9729 

-11.2375 

1.4617 

28.2437 

0.3687 

0.-3136 

.161 

-11.1704 

-11.9625 

0.0217 

20..2437 

0.368T 

0, 9528 

162 

-12.2257 

-1 1.9625 

0.3817 

28.2437 

0.3687 

0.8566 

163 

-13.2809 

-11.9625 

0.7417 

28.2437 

0.3687 

0. 6000 

164 

-14.3362 

-11.9625 

1.1017 

28.2437 

0.3687 

0.612b 

165 

-15.3916 

-11.9625 

1.4617 

23.2437 

0. 3687 

0.2763 

166 

-11.5889 

-12.6875 

0.0217 

28.2437 

0.3687 

0.8520 

167 

-12.64f2 

-12.6875 

0.3817 

23.2437 

0.3687 

0.7785 

168 

-13.6995 

-12.6875 

0.7417 

28.2437 

0.3687 

0.5285 

1(9 

- 14.7548 

-12.6875 

1.1017 

28.2437 

0.3687 

0.5505 

170 

-15.8101 

-12.6875 

1.4617 

28.2437 

0.3687 

0.2352 

171 

-12.0075 

-13.4125 

0.0217 

28.2437 

0.3687 

0.7251 

172 

-13.0628 

-13.4125 

, 0.3817 

28.2437 

0.3687 

0.6858 

173 

-14.1181 

-13.4125 

0.7417 

23.2437 

0.3687 

0.4385 

1 / V 

-15.1734 

-13.4125 

1.1017 

28.2437 

0.3687 

0.4671 

175 

-16.2287 

-13.4125 

1.4617 

28.2437 

0.3687 

0. 1791 

176 

- 12.4261 

-14.1375 

0.0217 

28.2437 

0.3687 

0.5375 

177 

-13.4814 

-14.1375 

0.3817 

28.2437 ; 

0.3687 

0.5415 

178 

-14.5367 

-14.1375 

0.7417 

28.2437 

0.3687 

0.2892 

179 

-15.5920 

-14.1375 

1.10X7 

28.2437 

0.3687 

0.3257 

180 

-16.6472 

-14.1375 

1.4617 

28.2437 

0.3687 

0. 0978 


Figure 23(b).- Continued. 
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AEROOVNAMtC LOADING RESULTS FOR ALPHA 


0.00000 DEG 


WING 

LIFT COEFFICIENT 

FLAP LIFT 

COEFFICIENT 

1 

.0918 


2.7312 



TOTAL LIFT COEFFICIENT , CL 

PITCHING NOMENT 

COEFFICIENT, CM 

3 

.8230 

REFERENCE QUANTITIES 

-2.5953 



WING SPANtB WING PLANFORM AREA.SREF 

WING AVE. CHORD. CAVE 


29.0000 

108.7500 

3.7500 





SPANWISE LOAD DISTRIBUTION 


' 

STATION 

Y/IB/21 

LOCAL CHORD. C 

CL*C/CL*CAVE 


CL*C/( 2*8) 

WING 






1 

0.0250 

3.7500 

0.7816 


0.0552 

2 

0.0750 

3.7500 

0.8508 


0.0601 

3 

0. 1250 

3.7500 

0.9122 


0 .0699 

c. 

0.1750 

3.7500 

0.9627 


0.0680 

5 

0.2250 

3.7500 

1.0033 


0.0708 

6 

0.2750 

3.7500 

1.0361 


0.0731 

7 

0.3250 

3.7500 

1.0625 


0.0750 ‘ 1 . 

8 

0.3750 

3.7500 

1.0832 


0.0765 

9 

0.9250 

3.7500 

1.0989 


0.0775 

10 

0.9750 

3.7500 

1. 1109 


0.0769 

11 

0.5250 

3.7500 

1. 1253 


0.0799 

12 

0.5750 

3.7500 

1.1.39 


0.0807 

13 

0.6250 

3.7500 

1. 1572 


0.0817 

19 

0.6750 

3.7500 

1.1559 


0.0816 

15 

0.7250 

3.7500 

1. 1351 


0.0801 

16 

0.7750 

3.7500 

1.0922 


0.0771 

17 

0.8250 

3.7500 

1.0239 


0.0723 

18 

0.8750 

3.7500 

0.9290 


0.0652 

19 

0.9250 

3.7500 

0.7793 


0.0550 

20 

0.9750 

3.7500 

0.5621 


0.0397 

FLAP 






1 

0.0259 

5.5750 

0.7107 


0.1255 

2 

0.0763 

5.5750 

0.T295 


0.1279 

3 

0. 1272 

5.5750 

0.7379 


0.1302 

9 

0.1780 

5.5750 

0.7999 


0.1323 

5 

0. 2289 

5.5750 

0.7639 


0.1399 

6 

0.2797 

5.5750 

0.7853 


0.1387 

7 

0.3306 

5.5750 

0.8205 


0.1999 

8 

0.3815 

5.5750 

0.8892 


0.1561 

9 

0.9323 

5.5750 

1.6382 


0.2893 

10 

0.9832 

5.5750 

2.0706 


0.3656 

11 

0.5390 

5.5750 

2. 1699 


0.3823 

12 

0. 5899 

5.5750 

1.9969 


0.3526 

13 

0.6358 

5.5750 

1.5580 


0.2751 

14 

0.6866 

5.5750 

0.8656 


0.1529 

15 

0.7375 

5.5750 

0.7772 


0.1372 

16 

0.7883 

5.5750 

0.7089 


0.1251 

17 

0. 8392 

5.5750 

0.6937 


0.1137 

18 

0.8901 

5.5750 

0.5733 


0.1012 

19 

C. 9909 

5.5750 

0.9B38 


0.0859 

20 

0.9918 

5.5750 

0.3937 


0.0607 


CN.WING 

CM, FLAP 

CD, WING 

CO, flap 

CO 

CO/CL*CL 

0.25150 

-2.89678 

-0.08932 

0.65771 

0.57339 

0.0392 


Figure 23(b).- Continued. 
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VSLOCITItS INCUCtD AT SPtCIFIEO POINTS IN THE VICINITY OF THF WING 


M 

X 

Y 

7 

U/V 

V/V 

W/V 

1 

-1.7000 

-7.2500 

2.0700 

0.06030 

-0.02753 

-0.09245 

2 

-3.7000 

-7. 2500 

2.0700- 

0.12 594- 

-0.06215 

-0.10663 

3 

-5.7000 

-7.2500 

2.0700 

0.19800 

-0. 09940 

-0.06224 

4 

-7. 7000 

-7.2500 

. 2.0700 

0.26257 

-0.12752 

-0.00573 

5 

-V.7000 

-7.2500 

2.0700 

0.37937 

-0. 16295 

0. 11S20 

6 

-11.7000 • 

-7.2500 

2.0700 

0 .hT324 

-0.19667 

0.47547 

7 

-13.7000 , 

-7.2500 

2.0700 

0.25392 

-0.08860 

0.73498 

B 

-15.7000 

-7.2500 

2.0700 

0.16 64't 

-0. 12091 

0.61595 


i 


Figure 23(b).- Concluded. 
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Item 1: Format (20A4), any alphabetic or numeric information 

(1 card) 

Column No. 

Program Variable 
Data 


1-80 

TITLE 

I I I I- — t L 


Item 2: Format (615, FlO.5), decimal point required for last variable 

(1 card) 


Column No. 

5 

10 

15 

20 

25 

30 

40 

7 

Program Variable 

NJET 

NP 

NCYL 

NPRNT 

KIN 

KOUT 

DS 

L 

Data 








} 


Item 3: Format (5F10.5), decimal point required 

(1 .+ NCYL , cards) ' 


Column No. 

10 

20 

30 

40 

50 

1 

Program Variable 

GAMVJ(J) 

RJET(J) 

XQ(J) 

YQ(J) 

ZOIJ) 

f 

Data 






\ 


Column NO. 
Program Variable 
Data 


Colvimn NO. 
Program Variable 
Data 


10 

20 

.30 

40 

50 

\ 

XCLR(J,1) 

VCLR(J,1) 

ZCLR (J,l) 

RGR(J,1) 

THETA (J,l) 

< 






/ 



10 

20 


40 

50 


XCLR(J.N) 

YCLR(J.N) 

ZCLR(J.N) 

RGR(J.N) 

THETA(J.N) 


mmam 




HHlHi 

IHll 


where N = L,2,.,.,NCYL 

Note: Item 3 is repeated for each jet; J == 1,2,..,,NJET 



If KIN > 6, Item 4 is omitted; but, if KIN •= 5, include the following cards; 

Item 4: Format (3F10.5), decimal point required 

(NP cards) 


Column No. 

10 

1 20j 

'30 

\ 

Program Variable 

XP(N) 


ZP(N) 

A 

Data 


■■■■■ 


■■M 


where N 1,2,.,,,NP 



Figure 24,- Input format for jet-wake program. 
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Source of 

fxternally 

INDUCFO 

VELOCITIES, 

ALPHA-0 

DEGREES , 

C (MU) -0.9 

1 180 

5 

1 

7 8 

0.125 




2 >46 

1.25 


0.46 

-7.25 

2.07 



0.0 

0.0 


0.0 

1.0 

0.0 



1.72 

0.0 


0.0 

1.0 

0.0 



8.5 

-0.2 


-0.3 

1.5 

-4.5 



15.3 

-0.6 


-0.8 

1.97 

-4.5 



150.0 

-3.0 


-5.0 

9.5 

0.0 



SOURCE OF 

EXTERNALLY 

INDUCED 

VELOCITIES, 

ALPHA-10 

DEGREES , 

C(MU)-0.9 

-1 180 

5 

0 

7 - 8 

0.125 




- 2.46 

1.25 


0.46 

-7.25 

2.07 



0.0 

0.0 


0.0 

1.0 

0.0 



- -1.72 

0.0 


0,0 

1.0 

0.0 



8.5 

-0.32 


-0,10 

1.5 

-1.4 



15.3 

-0,88 


-0.26 

1.97 

-1.4 



150.0 

-4.0 


-2.0 

9.5 

0.0 












(a) Input for single jet case, including 
use of data sets and optional output. 


UNSWEPT wing (NASA TN D-6222) FLAP ANGLE = 17, S/35 ♦ ALPHA = 0 » C(MU) » 5.5 


2 20 

4 0 

5. 6 

0,17 


4.61 

1.70 

6.96 

-11.64 

2.5 

0,0 

0.0 ■ 

0,0 

1.0 

3.0 

2.68 

0.0 

0.14 

1.0 

' 3.0 

13.4 

0.0 

0,70 

2.0 

3.0 

150.0 

0.0 

4.0 

12.0 

0.0 

4.61' 

1.70 

6.96 

-27.22 

2.5 

0.0 

0,0 

0,0 

1.0 

3.0 

2.68 

0.0 

0.14 

1,0 

3.0 

13.4 

0,0 

0;70 

2.0 

3.6 

150.0 

0,0 

4.0 

12.0 

0.0 

-0.760 

-2.82 

0,0 



-1 .773 

-2.82 

0.0 



-2.786 

-2.82 

0.0 



-3.799 

-2.82 

0.0 



-4.812 

-2.82 

0.0 



-5.825 

-2.82 

0,0 



-6.838 

-2.82 

0.0 



-7.851 

-2.82 

0,0 



-8.864 

-2.82 

0.0 



-9.P77 

-2.82 

0.0 



-10, -(7 2 

-28.720 

1.565 



-11.950 

r28.720 

2.426 



-10.722 

-29.720 

1.565 



-11.950 

-29.720 

2.462 



-10.722 

-31.22 

1.565 



-1 1.750 

-31.22 

2.426 



-10,722 

-33.02 

1.565 



-11.950 

-33.02 

2,426 



-10.722 

-34.41 

1.565 



-11.950 

-34.41 

2.426 




(b) Input for multiple jet case, including use 
of conventional input and output. 


Figure 25.- Sample input to jet-wake program. 
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SOURCE UF tXTERNALLY IN0UC«0 VtLQCtTtES« ALm«0' DEGREES i C(NUI>O.R 

0(SI KIN KOUT 
0.X2S0 7 B 

(II JFT parameters OIS/PI > 0.1000 


X/R 

y/K 

l/R 

S/R 

THETA 

RCAN/R 

R XO YO 

20 GANMA2V 

0.00 

0.00 

0.00 

0.00 

0.00 

1.00 

1.2500 0.460 -7.250 

2.070 2.460 

1.72 

0.00 

OkOO 

1.72 

0.00 

l.OO 



8.50 

-0.20 

-0.30 

8.51 

-4iS0 

1.50 



15.30 

-0.60 

-0.80 

15k34 

-4.50 

1.97 



150.00 

-3.00 

-5.00 

150.13 

0.00 

9.i0 




VELOCITIES INDUCED BY J6T 

1 * JET 

N 

XP/R 

YP/R 

2P/R 

1 

1.099 

5.510 

1.656 

2 

1.848 

5.510 

1.656 

3 

2.598 

5.510 

1.656 

4 

3.3*-8 

5.910 

1.65o 

9 

1.433 

4.030 

1.656 

6 

2.183 

4.930 

1.656 

7 

2.933 

4.930 

1.656 

B 

3.683 

4.9 30 

1.656 

9 

l.TeS 

4.350 

1.656 

to 

2.518 

4.350 

1.656 

11 

3.2EB 

4.350 

1.656 

12 

4.018 

4.350 

1.656 

13 

2.103 

3.770 

1.656 

!• 

2.853 

3.770 

1.656 

15 

3.603 

3.770 

1.656 

16 

‘.353 

3.770 

1.656 

17 

2.437 

3.190 

1.656 

lb 

3.187 

3.1°0 

1.656 

19 

3.937 

3.190 

1.656 

20 

4.687 

3.190 

1.656 

21 

2.772 

2.610 

1.656 

22 

3.522 

2.610 

1.656 

2.3 

4.272 

2.610 

1.656 

24 

5.022 • 

P.olO 

1.656 

25 

3.107 

2.030 

1.656 

2S 

3. 8' 7 

2.030 

1.656 

27 

4.607 

2.030 

1.656 

28 

5.357 

2.030 

1.656 

24 

3.-^2 

1.450 

1.656 

30 

4.192 

1.4 50 

1.6 56 

31 

4 .942 

1.450 

l.65o 

32 

5.692 

1.450 

1.656 

33 

3.777 

0.870 

1 .65b 

3^ 

4.527 

0.870 

1.655 

35 

5.274- 

0.870 

1.656 

36 

6.027 ■ 

0.870 

1.556 

37 

4.112 

0.290 

1.656 

38 

■•.862 

0.290 

1.656 

34 

■v.6 12 

0.290 

1.656 

40 

6.362 

0.290 

1.656 

41 

■>.447 

-0.290 

1.65& 

42 

5.137 

-0.290 

1 .656 

43 

5. -947 

. -0.2‘>0 

1.656 

44 

L.S97 

-0.290 

1.656 

<5 

- .761 

-0. 370 

1.656 

46 

5.531 

-0.870 

1.656 

47 

•:-.2Bl 

-0.470 

1.656 

48 

7.031 

-0.»70 

1.656 

4« 

5.116 

-1.450 

1 .656 

50 

3.8t6 

-1.450 

1.65b 

51 

0.616 

-1.450 

1.636 

52 

7.34' 

-1.450 

1 .656 

53 

5 .45 1 

-2.030 

1.65b 

5^* ‘ 

6.201 

, -2.030 

1.656 

55 

4.95 I 

-2.030 

1.65b 

' 5o 

7.701 

-2.030 

1.656 

57 

5.706 

-2.610 

1.656 

59 

0.536 

-2.610 

1.656 

59 

7.286 

-2.610 

1.656 

60 

5 .036 

-2.610 

1.656 


COOROlNATC SYSTEM 

U/V V/V H/V 

2.03416*03 *2.28736*02 *6.8959E-03 
1.6129E*04 -2.2063E*02 *6.63906*03 
*1.20636*03 *2.0e6SE*02 *6.25026*03 
*2.09186*03 *1.95426*02 *5.80606*03 
3.36116*04 *2.61766*02 -8.82466-03 
*1.65436*03 *2.45676*02 *8.26096*03 
*2 .B705 Et03; -2.27206*02 -7.59196*03 
*3. A909E-03 *2.09556-02 *6.92286-03 
*2.22776*03 *2.95206*02 >1.12856*02 
-4.01646-03 -2.6866E-02 *1.02266-02 
*4.79806*03 -2.43246-02 -9.17226*03 
-4.96696-03 -2.21876*02 *8.23016*03 
-5.7426E-03 * 3.24536*02 -1.42986-02 
*6.79926-03 -2.86286-02 -1.2527E-02 
-6. 79866-03 -2.55276-02 -1.10076*02 
-6.3568E-03 -2.3215E-02 -9.77016*03 
-9.9766E-03 *3.42386*02 -1.77666*02 
-9.62766-03 *2.95296*02 -1.51336*02 
-8.56616-03 -2.62596*02 -1.31386*02 
*7. '.4 626*03 * 2.41026 *02 *1.16366* 02 
*1.41626402 *3.42136*02 -2.14746*02 
-1.19096-02 -2.94346*02 -1.B037E-02 
-9.72246*03 *2.66096*02 -1.56866*02 
*8.02896*03 -2.50236-02 -1.40226*02 
*1.70946*02 -3.22056-02 -2.52076*02 
-1.29926-02 -2.85296-02 -2.13616-02 
-9.92786-03 -2.68356-02 -1.89596-02 
-7.89926-03 -2.62416-02 -1.73616-02 
-1.76906-02 -2.88656-02 -2. 90496-02 
-1.24276-02 -2.72946-02 -2.55886-02 
-8.98876-03 -2.72096-02 -2.3691E-02 
-6,93916-03 -2.78B3E-02 -2.26026-02 
-1. 56766-02 -2.52186-02 -3.40426-02 
-1.02046-02 -2.58166-02 -3.20436-02 
-6. 92426-03 -2.71866-02 -3.14576-02 
-3. 14806-03 -2.89496-02 -3.15486-02 
-1.19536-02 -1.99366-02 -4.23206-02 
-7.21626-03 -2.13876-02 -4.23416-02 
-4.27726-03 -2.30806-02 -4.34706-02 
-3.04386-03 -2.50066-02 -4.51286-02 
-6,59236-03 -7.58916-03 -5.12456-02 
-4.59466-03 -8.40726-03 -5.23456-02 
-2,46006-03 -9.38116-03 -5. 43566-02 
-1.47566-03 -1.05216-02 -5.68776-02 
-6.20146-03 9.72286-03 -5.13516-02 

-3. 26316-03 9.41256-03 -5. 23816-02 

-1.54776-03 9.25326-03 -5.41996-02 

-9.34226-04 8.85476-03 -5.65876-02 

— .59416-03 2.20506-02 -4. 26816-02 

-2.43436-03 2.18946-02 -4.33396-02 

-1.16016-03 2.19516-02 -4.46436-02 

-7.95926-04 2.18146-02 -4.65236-02 

-3.36366-03 2.69926-02 -3.23586-02 

-1. 86606-03 2.67876-02 -3.27606-02 

-9.22536-04 2.67886-02 -3.36756-02 

-6.45686-04 2.66486-02 -3.50816-02 

-2.39226-03 2.74636-02 -2.39916-02 

-1.34 3 76- 0 3 2. 7 1 936 -02 - 2.42 756- 02 

-6.83516-04 2.71176-02 -2.49576-02 

-4.61966-04 2.69776-02 -2.59946-02 


I 

r 




Figure 26.- Output froja jet-wake program (single jet) . 
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61 

6.121 

-3.190 

1.656 -1.6225E-03 

2.6023E-02 - 

62 

6.871 

-3.190 

1.656 -9.1544E-04 

2. 5745 E-02 - 

63 

7.621 

-3.190 

1.656 -4.6646E-04- 

: 2.5635E-02 - 

64 

8.371 

•3. 190 

1.656 -3.1326E-04 

2.5526E-02 - 

65 

6.456 

-3.770 

1.656 -1.0345E-03 

2.3978E-02 - 

66 

7.206 

-3.770 

i.656 -5.8306E-04 

2.37256-02 - 

67 

7.956 

-3.770 

1.656 -3.05496-04 

2. 3612E-02 - 

63 

8.706 

-3.770 

1.656 -2.1843E-04 

2.35296-02 - 

69 

6.791 

-4.350 

1.656 -6.0354E-04 

2.1869E-02 - 

70 

7.541 

-4.350 

1.656 -3.3750E-04 

2.1653E-02 - 

71 

3.291 

-4.350 

1.656 -1.8943E-04 

2.1545E-02 - 

72 

9.041 

-4.350 

1.656 -1.6152E-04 

2. 1471E-02 - 

73 

7.125 

-4.930 

1.656 -2.9580E-04 

1.9394E-02 - 

74 

7.875 . 

-4.930 

1.656 -l.6419fc-04 

1.9712E-02 - 

75 

3.625 

-4.9 30 

1.656 -1.0761E-04 

1.9608E-02 - 

76 

9.375 

-4.930 . 

1.656 -1,33176-04 

1.9537E-02 - 

77 

7.460 

-5.510 

1.656 -8.224bt-05 

1.8HOE-02 - 

76 

8.210 

-5.510 

1.656 -4.33536-05 

1.79556-02 - 

79 

3.960 

-5.510 

1.656 -5.23186-05 

1.7856E-02 - 

80 

9.710 

-5.510 

1.65o -1.1593E-04 

1.7781E-02 - 

81 

4.369 

5.510 

1.495 -2.8080E-03 

-1.8110E-02 - 

82 

5.213 

• 5.510 

1.207 -3.1461E-03 

-1.7225E-02 - 

83 

6.057 

5.510 

0.919 -3.3042E-03 

-1.6356E-02 - 

84 

6.901 

5.510 

0.631 -3.3582E-03 

-1.5489E-02 - 

85 

7. 74 6 

5.510 

3.343 -3.3298E-03 

-1.46026-02 - 

86 

4.703 

4.930 

1.495 -3.8775E-03 

-1.9255E-02 - 

87 

5.548 

4.930 

1.207-4.02866-03 

-1.83226-02 - 

88 

6.392 

4.930 

0.919^-4.06696-03 

-1.7424E-02 - 

89 

7.236 

4,930 

0.631 -4.05196-03 

-1.64916-02 - 

90 

8.080 

4.930 

0.343 -3.9665E-03 

-1.54826-02 - 

91 

5.038 

4.350 

1.495-4.92156-03 

-2.0375E-02 - 

92 

5.883 

4.350 

1.207 -4, £6286-03 

-1.95136-02 - 

93 

6.727 

4.350 

0.919 -4.84296-03 

-1.96526-02 - 

94 

7,571 

4.350 

0,631 -4.8107E-03 

-1.76486-02 - 

95 

8.415 

4.350 

0.343 -4.6880E-03 

-1.64496-02 - 

95 

5.373 

3.770 

1.495 -5,6376E-03 

-2. 1546E-02 - 

97 

6.217 

3.770 

1.207 -5.66716-03 

-2.09276-02 - 

93 

7.062 

3.770 

0.919 -5.65426-03 

-2.01766-02 - 

9 7 

7.4 0t 

3.770 

0.631 -5.6989E-03 

-1.90406-02 - 

100 

6.750 

3.770 

0.343 -5.5467E-03 

-1.74866-02 - 

101 

5.708 

3.190 

1.495 -6.5278E-03 

-2.2930E-02 - 

102 

6.552 

3. 190 

1.207 -6.3629E-03 

-2.27676-02 - 

103 

7.39- 

3.190 

0.919 -6.5698E-03 

-2.22246-02 - 

104 

9.2'- 1 

3.190 

0.631 -6.85836-03 

-2.07586-02 - 

105 

9.055 

3.190 

0.343 -6.60896403 

-1.85006-02 - 

lOo 

6.04 3 

2.610 

1.495 -6.89136-03 

-2.48036-02 - 

107 

6.8 87 

2.610 

1.207 -6.97776-03 

-2. 55066-02 - 

108 

7.731 

2.6 10 

0.919 -7.79926-03 

-2.52256-02 - 

109 

3.576 

2.610 

0.631 -8.59496-03 

-2.28586-02 - 

110 

9.420 

2.610 

0.343 -7.32856-03 

-1.92296-02 

111 

6.378 

2.030 

1.495 -6.84826-03 

-2.75636-02 - 

112 

7.222 

2.030 

1.207 -7.55986-03 

-2.98276-02 - 

113 

8.06t 

2.030 

0.919 -9.9061E-03 

-3.00596-02 - 

11 < 

8.910 

2.030 

0.631 -1.12766-02 

-2.51066-02 - 

115 

-<.755 

2.030 

0.3'+3 -8.66156-03 

-1.94516-02 

lit 

6.713 

1.450 

i.495 -c. 23366-03 

-3. 15246-02 - 

117 

7.5 57 

1.450 

1.207 -g. 19026-03 

-3.69876-02 - 

lid 

3.401 

1.4 50 

0.919 -1.44486-02 

-3.85206-02 - 

117 

9.245 

1.450 

0.631 -1.27576-02 

-2.73596-02 

120 

10.090 

1 .450 

0.343 -8.02566-03 

-2103586-02 


Figure 26.- Continued. 


1.7957E-02 
1.8194E-02 
1.B711E-02 
1.9451E-02 
1.3715E-02 
1.3917E-02 
1. 4299 E- 02 
1.4807E- 02 
1.0699 E-02 
1.0863E-02 
1.1135E-02 
1.1474E-02 
8. 504 IE- 03 
8.6298E-03 
8.8172E-03 
9.0374E-03 
6. 8692E-03 
6.9604E-03 
7.0B48E-03 
7.2225E-03 
4.7958E-03 
3.6463E-03 
2.5892E-03 
U6321E-03 
7.8299E-04 
5.6355E-03 
4.25176-03 
2.9086E-03 
1.8434E-03 
8.3637E-04 
6.6343E-03 
4.9812E-03 
3.4663C-03 
2.0620E-03 
8.‘t976E-04 
7. 6549E-03 
5. 88466-03 
4.0064E-03 
2. 258^.6-03 
7.6624E-04 
9.41896-03 
7.0580E-03 
4. 66486-03 
2.3503E-03 
4.50916-04 
1. 15786-02 
8.7166E-03 
5.47406-03 
2. 09256-03 
4.33206-04 
1.48S9E-02 
1.1431E-02 
6.5894E-03 
6. 9166 E- 04 
2.7377E-03 
2.07626-02 
1.69936-02 
6.68436-03 
4.03336-03 
8.7195E- 03 
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121 

7.048 

0.870 

1.495 -5.04Q2E-03 

-3.55206-02 -3.20646-02 

122 

7.892 

0.870 

1.207 -8.06l4t-03 

-4.72976-02 -3. 0816c- 02 

123 

9. 736 

0.370 

0.919 -2.8888E-02 

-4.84486-02 -8.6527E-03 

12!. 

9.5o5 

0.870 

0.632 1.5077E 00 

-2.79686-03 -7.77246-02 

125 

10.424 

0.870 

0.343 1.5011E 00 

-4.51426-03 -8.83446-02 

.126 

7.382 

0.290 

1.495 -2.8240E-03 

-3. 30116-02 -5.09096-02 

127 

3.202 

0.290 

1.208 -7.1290E-03 

-5.16636-02 -6.32536-02 

12a 

9.071 

0.290 

0.919 1.5624E 00 

-2.3233E-02 -7.70196-02 

129 

9.915 

0.290 

0.631 1.5326E 00 

-2.2715E-02 -8.14336-02 

130 

10.759 

. 0.290 

0.343 1 .479BE 00 

-2.1599E-02 -8.6376E-02 

131 

7.717 

-0.290 

1.495 -1.9642E-03 

-1.50316-02 -6. 76996-02 

132 

e.608 

-0.290' 

1.203 5.0867E-01 

-3.0515E-02 -9.55026-02 

133 

V .406 

-0.290 

0.919 1.5651E 00 

-4.1419E-02 -7,41566-02 

'13't 

10.250 

-0.290 

0.631 1.5110E 00 

-4. 03776-02 -7.96236-02 

135 

11.094 

- 0.290 

0.343 1.4587E 00 

-3.80896-02 -8.45396-02 

136 

8.052 

■ -0.970 

1.495 -2.1478E-03 

9.50246-03 -6.6667E-02 

137 

8.896 

-0.870 

1.207 -1.1516E-02 

5.75066-03 -7.90756-02 

138 

9.741 

-0.870 

0.919 1.5434E 00 

-6.04166-02 -7.24076-02 

139 

10.585 

-0.870 

0.631 1.4890E 00 

-5.75186-02 -7.80226-02 

140 

11.429 

•'0.870 

0,343 1.4372c 00 

-5.37846-02 -8.2672E-02 

141 

8.387 

-1.450 

1.495 -2.0813E-03 

2.40406-02 -5.25696-02 

142 

9.231 

-1.450 

1.207 -3.2005E-03 

2.73536-02 -6.06756-02 

143 

10.075 

-1.450 

0.919 -3.4866E-03 

3.32276-02 -7.1103E-02 

144 

10.967 

-1.450 

0.6 27 1.46 02,E 00 

-7.48606-02 -7.48216-02 

145 

11.764 

-1.450 

0.343 1.4163E 00 

-6.87816-02 -8.09586-02 

146 

8.722 

-2.030 

1.495 -1.1425E-03 

2.87346-02 -3.32416-02 

l«r? 

9.566 

-2.030 

1.207 -1.3384E-03 

3.3651E-02 -4.18836-02 

143 

10.410 

-2.030 

0.919 -8.5345E-04 

4.04406-02 -4.54776-02 

149 

11.255 

-2.030 

0.631 -3.52046-05 

5.01776-02 -4.&2956-02 

150 

12.099 

-2,030 

0.343 -4.0137E-04 

6.26336-02 -4.65406-02 

151 

9.057 

-2.610 

1.495 -5.3472E-04 

2.37336-02 -2.75646-02 

152 

9.901 

- 2.610 

1.207 -4. 8953E-04 

3.2379C-02 -2.86396-02 

153 

10.745 

-2.610 

0.919 -3.08091-04 

3.79376-02 -2.91486-02 

154 

1 1 . 38,9 

-2.6 10 

0.631 -3.5176E-05 

4.41746-02 -2.86446-02 

155 

12.43^ 

-2.610 

0.343 2.5759t-04 

5.15936-02 -2.65216-02 

156 

9.392 

-3.190 

1.495 -2.9058C-04 

2.6913E-02 -2.01326-02 

157 

10.236 

-3.190 

1.207 -2.2924E-04 

2.99636-02 -2.00286-02 

153 

11.090 

-3.150 

0.919 -1.9707E-04 

3.34436-02 -1.94006-02 

159 

11.524 

•3.150 

0.631 -2.6732E-04 

3.73776-02 -1.79856-02 

160 

12.768 

-3. 190 

0.343 -6.00656-04 

4.16556-02 -1.54666-02 

161 

9.726 

-3.770 

1.495 -2.1072E-04 

2.45706-02 -1.50026-02 

162 

10.571 

-3.770 

1.207 -2. 1352E-04 

2.67476-02 -1.44116-02 

163 

11.415 

-3.770 

0.919 -3.06216-04 

2.91096-02 -1.34106-02 

164 

12.259 

-3.770 

0.631 -5.76611-04 

3.1600t-02 -1.1836C-02 

165 

13.103 

-3.770 

0.343 -1.1697E-03 

3.4045E-02 -9.48776-03 

166 

10.061 

-4.350 

1.495 -2.06876-04 

2.22316-02 -1.1407E-02 

167 

10.905 

-4.350 

1.207 -2. 77386-04 

2.37706-02 -1.06441-02 

163 

11.750 

-4.350 

0.919 -4.63916-04 

2.53616-02 -9.56506-03 

169 

12.594 

-4,350 

0.631 -3.3280E-d4 

2.69136-02 -8.06556-03 

170 

13.439 

-4.350 

0.343 -1.4799E-03 

2.82236-02 -6.02306-03 

171 

10.396 

-4,930 

1.495 -2.2703E-04 

2.00776-02 -8.83396-03 

172 

11.240 

-4 .9 30 

1.207 -3.54446-04 

2.11546-02 -8.03506-03 

173 

12. 035 

-4, 930 

0.919 -5.9540E-04 

2.22066-02 -6.99526-03 

17- 

12.929 

-4 . 9 3,0 

0.631 -9.e5C9E-04 

2.31336-02 -5. 64856-03 

175 

13.773 

-4.930 

0.343 -1.54636-03 

2.3750E-02 -3.93666-03 

17& 

10.7 31 

-5.510 

i.495 -2.5058E-04 

1.81526-02 -6. 95156-03 

177 

11.575 

-5.510 

1.207 -4.1H.15E-04 

1.6B956-02 -6.18006-03 

178 

12.419 

-5.510 

0.91-;> -6.6881E-04 

I.V569E-02 -5.22586-03 

179 

13.264 

-5.5 10 

0.631 -1.02301-03 

2.00046-02 -4.05356-03 

180 

14.108 

-5.510 

0.343 -1.4529E-03 

2.03086-02 -2.64866-03 


Figure 26.- Continued. 
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WING COORDINATE SYSTEM 


N 

XW 

YW 


u/v 

V/V 

W/V 

1 

-0.912 

-0.362 

-o.ooa 

-2.0391E-03. -2.2873E-02 

6. 89S9E- 03 

2 

-l.BSOi 

-0.362 

-0.000 

-1.6129E-04 -2 .2063E-02 

6.63906*03 

3 

-2.787 

-0.362 

-0.000 

1.2063E-03 -2.0865E-02 

6.25026*03 

4 

-3.725 

-0.362 

-0.000 

2.0918E-03 -1.95426-02 

5.80606*03 

5 

-1.331 

-1.087 

-0.000 

-3. 3611E-04 - 2.6174E-02 

8.82466*03 

6 

-2.268 

-1.087 

-0.000 

1.6543E-03 -2.4567E-02 

8.26096-03 

7 

-3,206 

-1.087 

-0.000 

2.8705E-03 -2.2720E-02 

7.59196-03 

6 

-4.143 

-1.087 

-0.000 

3.4909E-03 -2,0955t-02 

6,92286-03 

9 

-1.750 

-1.613 

-0.000 

2.2277E-03 -2.95306-02 

1.1285E-02 

10 

-2.687 

-1.813 

-0.000 

4.0164E-03 -2.68666-02 

1.02266*02 

11 

-3.625 

-1.813 

-0.000 

4.7980E-03 -2.4324t-02 

9.17226-03 

12 

-4.562 

-1.813 

-0.000 

4.9669E-03 -2.2187E-02 

8.23016*03 

13 

-2.168 
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